* 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.

diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el
index 1c98335a20c3c7f449652f96bd01271928c3b911..717a0185984e02721d1e25c6bb0187160e992938 100644 (file)
--- 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)