Mercurial > emacs
comparison lisp/facemenu.el @ 63814:db398a23f0d0
(facemenu-add-face): Warn when font-lock is active.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 28 Jun 2005 18:55:48 +0000 |
| parents | 8e5d2e4fa77a |
| children | f8e70842f12b bb71c6cf2009 |
comparison
equal
deleted
inserted
replaced
| 63813:e907a265ffd8 | 63814:db398a23f0d0 |
|---|---|
| 609 (setq self-insert-face (if (eq last-command self-insert-face-command) | 609 (setq self-insert-face (if (eq last-command self-insert-face-command) |
| 610 (cons face (if (listp self-insert-face) | 610 (cons face (if (listp self-insert-face) |
| 611 self-insert-face | 611 self-insert-face |
| 612 (list self-insert-face))) | 612 (list self-insert-face))) |
| 613 face) | 613 face) |
| 614 self-insert-face-command this-command))))) | 614 self-insert-face-command this-command)))) |
| 615 (unless (facemenu-enable-faces-p) | |
| 616 (message "Font-lock mode will override any faces you set in this buffer"))) | |
| 615 | 617 |
| 616 (defun facemenu-active-faces (face-list &optional frame) | 618 (defun facemenu-active-faces (face-list &optional frame) |
| 617 "Return from FACE-LIST those faces that would be used for display. | 619 "Return from FACE-LIST those faces that would be used for display. |
| 618 This means each face attribute is not specified in a face earlier in FACE-LIST | 620 This means each face attribute is not specified in a face earlier in FACE-LIST |
| 619 and such a face is therefore active when used to display text. | 621 and such a face is therefore active when used to display text. |