From: Juri Linkov <juri@linkov.net>
Date: Sun, 13 Feb 2022 18:44:14 +0000 (+0200)
Subject: * lisp/faces.el (read-face-name-sample-text): Add defconst (bug#53960).
X-Git-Tag: emacs-29.0.90~2333
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc44bc6255733fa99e00932ca515f400b9c67aec;p=emacs.git

* lisp/faces.el (read-face-name-sample-text): Add defconst (bug#53960).

(read-face-name): Use it instead of hard-coded string.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index b765522914d..3a434b3251c 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1065,6 +1065,9 @@ of the default face.  Value is FACE."
 
 (defvar crm-separator) ; from crm.el
 
+(defconst read-face-name-sample-text "SAMPLE"
+  "Text string to display as the sample text for `read-face-name'.")
+
 (defun read-face-name (prompt &optional default multiple)
   "Read one or more face names, prompting with PROMPT.
 PROMPT should not end in a space or a colon.
@@ -1115,7 +1118,9 @@ returned.  Otherwise, DEFAULT is returned verbatim."
                (mapcar
                 (lambda (face)
                   (list face
-                        (concat (propertize "SAMPLE" 'face face) "\t")
+                        (concat (propertize read-face-name-sample-text
+                                            'face face)
+                                "\t")
                         ""))
                 faces))))
           aliasfaces nonaliasfaces faces)