diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-05-18 19:06:54 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-05-18 19:06:54 -0400 |
| commit | db8266b0b2861baf24f503fe9ab66d8b52cf4d75 (patch) | |
| tree | 2f32512c599b739ada37ba1cdb6631862bd76b3a /lisp/net/eudc.el | |
| parent | e61bb6f6fedc890fc3cd94e6da4d893536d9823c (diff) | |
| download | emacs-db8266b0b2861baf24f503fe9ab66d8b52cf4d75.tar.gz emacs-db8266b0b2861baf24f503fe9ab66d8b52cf4d75.tar.bz2 emacs-db8266b0b2861baf24f503fe9ab66d8b52cf4d75.zip | |
* lisp/net/eudc.el (eudc-menu): Use proper closures
Diffstat (limited to 'lisp/net/eudc.el')
| -rw-r--r-- | lisp/net/eudc.el | 12 |
1 files changed, 6 insertions, 6 deletions
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 |