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 0a01d90cbba42abaad431a5ef3993190f8dcde9a..a44d6ea10b77236e89b0bdd447ca4ec59fdad16f 100644 (file)
--- 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)))