[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 0c035a7: Remove ": ?" from the read-face-name promp
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 0c035a7: Remove ": ?" from the read-face-name prompt |
Date: |
Fri, 29 Apr 2016 14:42:34 +0000 |
branch: master
commit 0c035a742f4298b8a924de70756df730be2de989
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Remove ": ?" from the read-face-name prompt
* lisp/faces.el (read-face-name): Remove ": ?" from the prompt
to be more backwards compatible (bug#15909).
---
lisp/faces.el | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/lisp/faces.el b/lisp/faces.el
index 7bd8107..1b97093 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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 0c035a7: Remove ": ?" from the read-face-name prompt,
Lars Ingebrigtsen <=