From ee87c2f8ca30e9b4221656b00abb25ee9f532040 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 24 Jan 2022 19:51:55 +0100 Subject: [PATCH] Don't list the default hi-lock faces twice in the future history * lisp/hi-lock.el (hi-lock-read-face-name): Don't include faces twice in the defaults (bug#19877). --- lisp/hi-lock.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 0a01d90cbba..a44d6ea10b7 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -723,9 +723,11 @@ with completion and history." (when hi-lock-interactive-patterns (face-name (hi-lock-keyword->face (car hi-lock-interactive-patterns))))) - (defaults (append hi-lock--unused-faces - (cdr (member last-used-face hi-lock-face-defaults)) - hi-lock-face-defaults)) + (defaults (seq-uniq + (append hi-lock--unused-faces + (cdr (member last-used-face hi-lock-face-defaults)) + hi-lock-face-defaults) + #'equal)) face) (if (and hi-lock-auto-select-face (not current-prefix-arg)) (setq face (or (pop hi-lock--unused-faces) (car defaults))) -- 2.39.2