Commit db8266b0 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent e61bb6f6
Pipeline #10851 failed with stages
in 10 minutes and 20 seconds
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment