From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 24 Jan 2022 18:51:55 +0000 (+0100)
Subject: Don't list the default hi-lock faces twice in the future history
X-Git-Tag: emacs-29.0.90~2780
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ee87c2f8ca30e9b4221656b00abb25ee9f532040;p=emacs.git

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

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)))