diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-05-18 19:05:29 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-05-18 19:05:29 -0400 |
| commit | e61bb6f6fedc890fc3cd94e6da4d893536d9823c (patch) | |
| tree | c15e9450fd61ba6bc8bd6ea74d01e4ad7b12412e /lisp | |
| parent | abedac0909654f6e88fa4108c42f3c658644ab3c (diff) | |
| download | emacs-e61bb6f6fedc890fc3cd94e6da4d893536d9823c.tar.gz emacs-e61bb6f6fedc890fc3cd94e6da4d893536d9823c.tar.bz2 emacs-e61bb6f6fedc890fc3cd94e6da4d893536d9823c.zip | |
* lisp/net/browse-url.el: Avoid `(lambda ..)
(browse-url-netscape, browse-url-mozilla, browse-url-galeon)
(browse-url-epiphany, browse-url-elinks): Use proper closures.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/browse-url.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 1c98335a20c..717a0185984 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el @@ -1113,8 +1113,8 @@ used instead of `browse-url-new-window-flag'." ",new-window")) ")")))))))) (set-process-sentinel process - `(lambda (process change) - (browse-url-netscape-sentinel process ,url))))) + (lambda (process _change) + (browse-url-netscape-sentinel process url))))) (function-put 'browse-url-netscape 'browse-url-browser-kind 'external) @@ -1185,8 +1185,8 @@ used instead of `browse-url-new-window-flag'." ",new-window")) ")")))))) (set-process-sentinel process - `(lambda (process change) - (browse-url-mozilla-sentinel process ,url))))) + (lambda (process _change) + (browse-url-mozilla-sentinel process url))))) (function-put 'browse-url-mozilla 'browse-url-browser-kind 'external) @@ -1303,8 +1303,8 @@ used instead of `browse-url-new-window-flag'." '("--existing")) (list url))))) (set-process-sentinel process - `(lambda (process change) - (browse-url-galeon-sentinel process ,url))))) + (lambda (process _change) + (browse-url-galeon-sentinel process url))))) (function-put 'browse-url-galeon 'browse-url-browser-kind 'external) @@ -1351,8 +1351,8 @@ used instead of `browse-url-new-window-flag'." '("--existing")) (list url))))) (set-process-sentinel process - `(lambda (process change) - (browse-url-epiphany-sentinel process ,url))))) + (lambda (process _change) + (browse-url-epiphany-sentinel process url))))) (function-put 'browse-url-epiphany 'browse-url-browser-kind 'external) @@ -1715,8 +1715,8 @@ from `browse-url-elinks-wrapper'." (elinks-ping-process (start-process "elinks-ping" nil "elinks" "-remote" "ping()"))) (set-process-sentinel elinks-ping-process - `(lambda (process change) - (browse-url-elinks-sentinel process ,url)))))) + (lambda (process _change) + (browse-url-elinks-sentinel process url)))))) (function-put 'browse-url-elinks 'browse-url-browser-kind 'external) |