changeset 64724:719375653e09

(read-face-name): Delete duplicate faces.
author Juri Linkov <juri@jurta.org>
date Thu, 04 Aug 2005 01:06:44 +0000
parents 395915a45f02
children 0344b299e9e6
files lisp/faces.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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)