[Emacs-diffs] scratch/backports-25.2 d6f5232 34/46: Remove ": ?" from the read-face-name prompt

[Noam Postavsky]

branch: scratch/backports-25.2
commit d6f523289774ddbaaa42da8194c8cde71477658f
Author: Lars Ingebrigtsen <address@hidden>
Commit: Noam Postavsky <address@hidden>

    Remove ": ?" from the read-face-name prompt
    
    * lisp/faces.el (read-face-name): Remove ": ?" from the prompt
    to be more backwards compatible (bug#15909).
    
    (cherry picked from commit 0c035a742f4298b8a924de70756df730be2de989)
---
 lisp/faces.el |    4 ++++
 1 file changed, 4 insertions(+)

diff --git a/lisp/faces.el b/lisp/faces.el
index b1ea0f0..4053d96 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1028,6 +1028,10 @@ a single face name."
     ;; to define DEFAULT if MULTIPLE is nil.
     (setq default (car (split-string default crm-separator t))))
 
+  ;; Older versions of `read-face-name' did not append ": " to the
+  ;; prompt, so there are third party libraries that have that in the
+  ;; prompt.  If so, remove it.
+  (setq prompt (replace-regexp-in-string ": ?\\'" "" prompt))
   (let ((prompt (if default
                     (format-message "%s (default `%s'): " prompt default)
                   (format "%s: " prompt)))