Skip to content

GitLab

Commit 81435dc4 authored by Juri Linkov's avatar Juri Linkov
Browse files

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

parent bdd78d05
Show whitespace changes
Inline Side-by-side
Showing with 1 addition and 0 deletions
lisp/faces.el
View file @ 81435dc4
...@@ -882,6 +882,7 @@ Otherwise, return a single face." ...@@ -882,6 +882,7 @@ Otherwise, return a single face."
(push f faces))) (push f faces)))
(if (symbolp faceprop) (if (symbolp faceprop)
(push faceprop faces))) (push faceprop faces)))
(delete-dups faces)
;; Build up the completion tables. ;; Build up the completion tables.
(mapatoms (lambda (s) (mapatoms (lambda (s)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment