diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 14:22:05 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-01-20 14:22:05 +0100 |
| commit | 2de01ff1bab09855a37ccb60788c1c35fb569e43 (patch) | |
| tree | f3ebc82ac75338ca95878d142e18c094232e84f0 /lisp/hi-lock.el | |
| parent | 10fbbddddd67aaeecf6d2c36bd171282012c5a46 (diff) | |
| download | emacs-2de01ff1bab09855a37ccb60788c1c35fb569e43.tar.gz emacs-2de01ff1bab09855a37ccb60788c1c35fb569e43.tar.bz2 emacs-2de01ff1bab09855a37ccb60788c1c35fb569e43.zip | |
Make the read-face-name completion buffer display samples
* lisp/faces.el (read-face-name): Display face samples when
completing (bug#53255).
* lisp/hi-lock.el (hi-lock-read-face-name): Use read-face-name.
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index b77f9181a9c..081b604d5b2 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -727,11 +727,11 @@ with completion and history." (cdr (member last-used-face hi-lock-face-defaults)) hi-lock-face-defaults)) face) - (if (and hi-lock-auto-select-face (not current-prefix-arg)) + (if (and hi-lock-auto-select-face (not current-prefix-arg)) (setq face (or (pop hi-lock--unused-faces) (car defaults))) - (setq face (completing-read - (format-prompt "Highlight using face" (car defaults)) - obarray 'facep t nil 'face-name-history defaults)) + (setq face (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. |