From fc44bc6255733fa99e00932ca515f400b9c67aec Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 13 Feb 2022 20:44:14 +0200 Subject: [PATCH] * 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 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) -- 2.39.5