diff options
| -rw-r--r-- | lisp/facemenu.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index eaaf4dacd72..13cf7fbd734 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el | |||
| @@ -690,6 +690,9 @@ This is called whenever you create a new face, and at other times." | |||
| 690 | (cond ((facemenu-iterate ; check if equivalent face is already in the menu | 690 | (cond ((facemenu-iterate ; check if equivalent face is already in the menu |
| 691 | (lambda (m) (and (listp m) | 691 | (lambda (m) (and (listp m) |
| 692 | (symbolp (car m)) | 692 | (symbolp (car m)) |
| 693 | ;; Avoid error in face-equal | ||
| 694 | ;; when a non-face is erroneously present. | ||
| 695 | (facep (car m)) | ||
| 693 | (face-equal (car m) symbol))) | 696 | (face-equal (car m) symbol))) |
| 694 | (cdr (symbol-function menu)))) | 697 | (cdr (symbol-function menu)))) |
| 695 | ;; Faces with a keyboard equivalent. These go at the front. | 698 | ;; Faces with a keyboard equivalent. These go at the front. |