diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/faces.el | 7 |
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) |