From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 May 2021 23:06:54 +0000 (-0400)
Subject: * lisp/net/eudc.el (eudc-menu): Use proper closures
X-Git-Tag: emacs-28.0.90~2409
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=db8266b0b2861baf24f503fe9ab66d8b52cf4d75;p=emacs.git

* lisp/net/eudc.el (eudc-menu): Use proper closures
---

diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el
index c112d273309..425217cf65c 100644
--- a/lisp/net/eudc.el
+++ b/lisp/net/eudc.el
@@ -1108,12 +1108,12 @@ queries the server for the existing fields and displays a corresponding form."
                                                  proto-name)))
                    (if (not (fboundp command))
                        (fset command
-                             `(lambda ()
-                                (interactive)
-                                (eudc-set-server ,server (quote ,protocol))
-                                (message "Selected directory server is now %s (%s)"
-                                         ,server
-                                         ,proto-name))))
+                             (lambda ()
+                               (interactive)
+                               (eudc-set-server server protocol)
+                               (message "Selected directory server is now %s (%s)"
+                                        server
+                                        proto-name))))
                    (vector (format "%s (%s)" server proto-name)
                            command
                            :style 'radio