From 81435dc42ab40390edd5c90e65cb69f0bb3e7871 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 4 Aug 2005 01:06:44 +0000 Subject: [PATCH] (read-face-name): Delete duplicate faces. --- lisp/faces.el | 1 + 1 file changed, 1 insertion(+) 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) -- 2.39.5