diff options
| author | Juri Linkov <juri@linkov.net> | 2022-02-13 20:44:14 +0200 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2022-02-13 20:44:14 +0200 |
| commit | fc44bc6255733fa99e00932ca515f400b9c67aec (patch) | |
| tree | b2050c1f542d2867e4b02a515fa731a5468abfaa /lisp | |
| parent | 997dd86a9f6a253e4542d65b17dfec6af2f4e8fd (diff) | |
| download | emacs-fc44bc6255733fa99e00932ca515f400b9c67aec.tar.gz emacs-fc44bc6255733fa99e00932ca515f400b9c67aec.tar.bz2 emacs-fc44bc6255733fa99e00932ca515f400b9c67aec.zip | |
* lisp/faces.el (read-face-name-sample-text): Add defconst (bug#53960).
(read-face-name): Use it instead of hard-coded string.
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) |