# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1123117604 0
# Node ID 719375653e09c429762ec7d284754cfaa5296feb
# Parent  395915a45f0206e5b0afa0f68af5805b120f888c
(read-face-name): Delete duplicate faces.

diff -r 395915a45f02 -r 719375653e09 lisp/faces.el
--- a/lisp/faces.el	Tue Aug 02 23:18:27 2005 +0000
+++ b/lisp/faces.el	Thu Aug 04 01:06:44 2005 +0000
@@ -882,6 +882,7 @@
 	      (push f faces)))
       (if (symbolp faceprop)
 	  (push faceprop faces)))
+    (delete-dups faces)
 
     ;; Build up the completion tables.
     (mapatoms (lambda (s)