diff options
| author | Juri Linkov | 2005-08-04 01:06:44 +0000 |
|---|---|---|
| committer | Juri Linkov | 2005-08-04 01:06:44 +0000 |
| commit | 81435dc42ab40390edd5c90e65cb69f0bb3e7871 (patch) | |
| tree | c71503531e200402d3ffada3e9835e79a5e101de | |
| parent | bdd78d05868a57292ee20febafa166a2937a2611 (diff) | |
| download | emacs-81435dc42ab40390edd5c90e65cb69f0bb3e7871.tar.gz emacs-81435dc42ab40390edd5c90e65cb69f0bb3e7871.zip | |
(read-face-name): Delete duplicate faces.
| -rw-r--r-- | lisp/faces.el | 1 |
1 files changed, 1 insertions, 0 deletions
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." | |||
| 882 | (push f faces))) | 882 | (push f faces))) |
| 883 | (if (symbolp faceprop) | 883 | (if (symbolp faceprop) |
| 884 | (push faceprop faces))) | 884 | (push faceprop faces))) |
| 885 | (delete-dups faces) | ||
| 885 | 886 | ||
| 886 | ;; Build up the completion tables. | 887 | ;; Build up the completion tables. |
| 887 | (mapatoms (lambda (s) | 888 | (mapatoms (lambda (s) |