From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 13 Jul 2021 22:12:45 +0000 (+0200)
Subject: Add a better interactive spec to `facemenu-add-face'
X-Git-Tag: emacs-28.0.90~1878
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f339cc3b81e28cabfd583c862b5011ac40acf935;p=emacs.git

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.
---

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