From: Juri Linkov <juri@jurta.org>
Date: Thu, 4 Aug 2005 01:06:44 +0000 (+0000)
Subject: (read-face-name): Delete duplicate faces.
X-Git-Tag: emacs-pretest-22.0.90~7802
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81435dc42ab40390edd5c90e65cb69f0bb3e7871;p=emacs.git

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

diff --git a/lisp/faces.el b/lisp/faces.el
index 638e05c2570..89830266f61 100644
--- 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)