master ee87c2f8ca 2/2: Don't list the default hi-lock faces twice in the future history

[Lars Ingebrigtsen]

branch: master
commit ee87c2f8ca30e9b4221656b00abb25ee9f532040
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    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 0a01d90cbb..a44d6ea10b 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)))