diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 14:53:12 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 14:53:12 +0100 |
| commit | 6305c3f30dc12dabad705031cbb296999d39e308 (patch) | |
| tree | 1dace86b10047600610a9efe340fc1813d822bc2 /lisp/hi-lock.el | |
| parent | 27b3948a8a29f263272d10c1ee1c50d87797ff50 (diff) | |
| download | emacs-6305c3f30dc12dabad705031cbb296999d39e308.tar.gz emacs-6305c3f30dc12dabad705031cbb296999d39e308.tar.bz2 emacs-6305c3f30dc12dabad705031cbb296999d39e308.zip | |
Fix thinko in previous hi-lock-read-face-name change
* lisp/hi-lock.el (hi-lock-read-face-name): Fix the string/symbol
logic.
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 081b604d5b2..53e6f779b31 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -729,9 +729,10 @@ 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 (read-face-name - (format-prompt "Highlight using face" (car defaults)) - defaults)) + (setq face (symbol-name + (read-face-name + (format-prompt "Highlight using face" (car defaults)) + defaults))) ;; Update list of un-used faces. (setq hi-lock--unused-faces (remove face hi-lock--unused-faces)) ;; Grow the list of defaults. |