diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 12:36:29 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-22 13:14:43 +0100 |
| commit | bf3db92bd69de418ff58cef9f2b5c6e263d9d061 (patch) | |
| tree | 4ca173b16c474d211283b79525267ce1d3ff8086 /lisp/hi-lock.el | |
| parent | 90bc1afe69c82b3ad0e3ddcf8606fcf4d2e92e5f (diff) | |
| download | emacs-bf3db92bd69de418ff58cef9f2b5c6e263d9d061.tar.gz emacs-bf3db92bd69de418ff58cef9f2b5c6e263d9d061.tar.bz2 emacs-bf3db92bd69de418ff58cef9f2b5c6e263d9d061.zip | |
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).
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 53e6f779b31..0a01d90cbba 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. |