From 49c5299bbbfc103d03128f749d71a15169fe78d9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 18 May 2021 18:05:05 -0400 Subject: [PATCH] * lisp/facemenu.el (facemenu-add-new-face): Use `:documentation` --- lisp/facemenu.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 29ee4f8bddc..855ce0be69e 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -827,15 +827,15 @@ This command was defined by `facemenu-add-new-face'." (key (setq function (intern (concat "facemenu-set-" name))) (fset function - `(lambda () - ,docstring - (interactive) - (facemenu-set-face - (quote ,symbol) - (if (and mark-active (not current-prefix-arg)) - (region-beginning)) - (if (and mark-active (not current-prefix-arg)) - (region-end))))) + (lambda () + (:documentation docstring) + (interactive) + (facemenu-set-face + symbol + (if (and mark-active (not current-prefix-arg)) + (region-beginning)) + (if (and mark-active (not current-prefix-arg)) + (region-end))))) (define-key 'facemenu-keymap key (cons name function)) (define-key menu key (cons name function))) ;; Faces with no keyboard equivalent. Figure out where to put it: -- 2.39.5