1 files changed, 6 insertions, 1 deletions

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)