From db8266b0b2861baf24f503fe9ab66d8b52cf4d75 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 May 2021 19:06:54 -0400 Subject: [PATCH] * lisp/net/eudc.el (eudc-menu): Use proper closures --- lisp/net/eudc.el | 12 ++++++------ 1 file 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 -- 2.39.5