andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add a better interactive spec to `facemenu-add-face'

Browse source 
* lisp/facemenu.el (facemenu-add-face): Use `read-face-name'
(bug#18369) by copying over the interactive spec from
facemenu-set-face.
This commit is contained in:
Lars Ingebrigtsen 2021-07-14 00:12:45 +02:00
parent a5d1bd6a6d
commit f339cc3b81
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/facemenu.el
View file

@ -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)))