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

[Juri Linkov]

branch: master
commit fc44bc6255733fa99e00932ca515f400b9c67aec
Author: Juri Linkov <juri@linkov.net>
Commit: Juri Linkov <juri@linkov.net>

    * lisp/faces.el (read-face-name-sample-text): Add defconst (bug#53960).
    
    (read-face-name): Use it instead of hard-coded string.
---
 lisp/faces.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/faces.el b/lisp/faces.el
index b765522914..3a434b3251 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)