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

[Stefan Monnier]

branch: master
commit 49c5299bbbfc103d03128f749d71a15169fe78d9
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * 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 29ee4f8..855ce0b 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: