(read-face-name): Delete duplicate faces.

diff --git a/lisp/faces.el b/lisp/faces.el
index 638e05c257042faadd23dcca569cd13fd9a50404..89830266f6140e279413f019d6c902c6b28ac14a 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -882,6 +882,7 @@ Otherwise, return a single face."
              (push f faces)))
       (if (symbolp faceprop)
          (push faceprop faces)))
+    (delete-dups faces)
 
     ;; Build up the completion tables.
     (mapatoms (lambda (s)