Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-25 06:17:34 +00:00
Code Issues Projects Releases Packages Wiki Activity

Fix the prompt in hi-lock-read-face-name

Browse source 
* lisp/hi-lock.el (hi-lock-read-face-name): Fix the prompt after
recent changes (bug#53255).
This commit is contained in:
Lars Ingebrigtsen 2022-01-22 12:36:29 +01:00
parent 90bc1afe69
commit bf3db92bd6
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/hi-lock.el
View file

@ -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.