mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-30 00:51:50 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Stefan Monnier 2021-05-18 19:06:54 -04:00
parent e61bb6f6fe
commit db8266b0b2
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/net/eudc.el
View file

@ -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