From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 25 Jun 2005 22:24:10 +0000 (+0000)
Subject: (facemenu-enable-faces-p): New function.
X-Git-Tag: emacs-pretest-22.0.90~8640
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6c763f3667a5008c23978e66e4251f29f818acb8;p=emacs.git

(facemenu-enable-faces-p): New function.
(facemenu-background-menu, facemenu-foreground-menu)
(facemenu-face-menu): Add menu-enable property.
---

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