diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-14 00:12:45 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-07-14 00:12:45 +0200 |
| commit | f339cc3b81e28cabfd583c862b5011ac40acf935 (patch) | |
| tree | 6a4e3b36db3687bfd56ab1037bf4ee444ae8d1a4 /lisp | |
| parent | a5d1bd6a6d9cd4b8c832e9dcecb1b908ae973fa9 (diff) | |
| download | emacs-f339cc3b81e28cabfd583c862b5011ac40acf935.tar.gz emacs-f339cc3b81e28cabfd583c862b5011ac40acf935.tar.bz2 emacs-f339cc3b81e28cabfd583c862b5011ac40acf935.zip | |
Add a better interactive spec to `facemenu-add-face'
* lisp/facemenu.el (facemenu-add-face): Use `read-face-name'
(bug#18369) by copying over the interactive spec from
facemenu-set-face.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/facemenu.el | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index 8631be917a9..7229d6163df 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -718,7 +718,13 @@ they are used to set the face information. As a special case, if FACE is `default', then the region is left with NO face text property. Otherwise, selecting the default face would not have any effect. See `facemenu-remove-face-function'." - (interactive "*xFace: \nr") + (interactive (list (progn + (barf-if-buffer-read-only) + (read-face-name "Use face" (face-at-point t))) + (if (and mark-active (not current-prefix-arg)) + (region-beginning)) + (if (and mark-active (not current-prefix-arg)) + (region-end)))) (cond ((and (eq face 'default) (not (eq facemenu-remove-face-function t))) |