diff options
| author | Richard M. Stallman <rms@gnu.org> | 2005-06-25 22:24:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2005-06-25 22:24:10 +0000 |
| commit | 6c763f3667a5008c23978e66e4251f29f818acb8 (patch) | |
| tree | 3c529d71843d1ea4a086e411eb6e34f9f2112bae /lisp/facemenu.el | |
| parent | df13531dc21070537929cbba1183d6232e91c5de (diff) | |
| download | emacs-6c763f3667a5008c23978e66e4251f29f818acb8.tar.gz | |
(facemenu-enable-faces-p): New function.
(facemenu-background-menu, facemenu-foreground-menu)
(facemenu-face-menu): Add menu-enable property.
Diffstat (limited to 'lisp/facemenu.el')
| -rw-r--r-- | lisp/facemenu.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/facemenu.el b/lisp/facemenu.el index cd3998520a1..57dea40266a 100644 --- a/lisp/facemenu.el +++ b/lisp/facemenu.el @@ -162,6 +162,7 @@ when they are created." "Menu keymap for faces.") ;;;###autoload (defalias 'facemenu-face-menu facemenu-face-menu) +(put 'facemenu-face-menu 'menu-enable '(facemenu-enable-faces-p)) ;;;###autoload (defvar facemenu-foreground-menu @@ -171,6 +172,7 @@ when they are created." "Menu keymap for foreground colors.") ;;;###autoload (defalias 'facemenu-foreground-menu facemenu-foreground-menu) +(put 'facemenu-foreground-menu 'menu-enable '(facemenu-enable-faces-p)) ;;;###autoload (defvar facemenu-background-menu @@ -180,6 +182,11 @@ when they are created." "Menu keymap for background colors.") ;;;###autoload (defalias 'facemenu-background-menu facemenu-background-menu) +(put 'facemenu-background-menu 'menu-enable '(facemenu-enable-faces-p)) + +;;; Condition for enabling menu items that set faces. +(defun facemenu-enable-faces-p () + (not (and font-lock-mode font-lock-defaults))) ;;;###autoload (defvar facemenu-special-menu |