diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-29 16:41:13 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-04-29 16:41:13 +0200 |
commit | 0c035a742f4298b8a924de70756df730be2de989 (patch) | |
tree | f7631f452ffd80446f63894243e1d98e857b5b9b /lisp/faces.el | |
parent | bc5f27aa099cdde02ca66e71501b89300685ab28 (diff) |
Remove ": ?" from the read-face-name prompt
* lisp/faces.el (read-face-name): Remove ": ?" from the prompt
to be more backwards compatible (bug#15909).
Diffstat (limited to 'lisp/faces.el')
-rw-r--r-- | lisp/faces.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 7bd8107066a..1b97093a8c4 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -1004,6 +1004,10 @@ a single face name." ;; to define DEFAULT if MULTIPLE is nil. (setq default (car (split-string default crm-separator t)))) + ;; Older versions of `read-face-name' did not append ": " to the + ;; prompt, so there are third party libraries that have that in the + ;; prompt. If so, remove it. + (setq prompt (replace-regexp-in-string ": ?\\'" "" prompt)) (let ((prompt (if default (format-message "%s (default `%s'): " prompt default) (format "%s: " prompt))) |