[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master bf3db92bd6 1/3: Fix the prompt in hi-lock-read-face-name
From: |
Lars Ingebrigtsen |
Subject: |
master bf3db92bd6 1/3: Fix the prompt in hi-lock-read-face-name |
Date: |
Sat, 22 Jan 2022 07:14:54 -0500 (EST) |
branch: master
commit bf3db92bd69de418ff58cef9f2b5c6e263d9d061
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix the prompt in hi-lock-read-face-name
* lisp/hi-lock.el (hi-lock-read-face-name): Fix the prompt after
recent changes (bug#53255).
---
lisp/hi-lock.el | 5 +----
1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 53e6f779b3..0a01d90cbb 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -729,10 +729,7 @@ with completion and history."
face)
(if (and hi-lock-auto-select-face (not current-prefix-arg))
(setq face (or (pop hi-lock--unused-faces) (car defaults)))
- (setq face (symbol-name
- (read-face-name
- (format-prompt "Highlight using face" (car defaults))
- defaults)))
+ (setq face (symbol-name (read-face-name "Highlight using face"
defaults)))
;; Update list of un-used faces.
(setq hi-lock--unused-faces (remove face hi-lock--unused-faces))
;; Grow the list of defaults.