diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-05-18 18:05:05 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-05-18 18:05:05 -0400 |
| commit | 49c5299bbbfc103d03128f749d71a15169fe78d9 (patch) | |
| tree | 31a4d46cf1bfc4a0fd3c533a6560d7c68fa1ae07 | |
| parent | f57b0f08b44c90f02450563e6fd0c75806fcd2f7 (diff) | |
| download | emacs-49c5299bbbfc103d03128f749d71a15169fe78d9.tar.gz | |
* lisp/facemenu.el (facemenu-add-new-face): Use `:documentation`
| -rw-r--r-- | lisp/facemenu.el | 18 |
1 files 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: |