From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 18 May 2021 22:05:05 +0000 (-0400)
Subject: * lisp/facemenu.el (facemenu-add-new-face): Use `:documentation`
X-Git-Tag: emacs-28.0.90~2416
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49c5299bbbfc103d03128f749d71a15169fe78d9;p=emacs.git

* lisp/facemenu.el (facemenu-add-new-face): Use `:documentation`
---

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: