Or, it could just warn the user that the highlighting will not be
visible since font lock is enabled?
It would be possible, but why be so complicated?
This change seems to do the right job.
*** facemenu.el 08 Mar 2005 22:24:04 -0500 1.77
--- facemenu.el 25 Jun 2005 18:19:29 -0400
***************
*** 162,167 ****
--- 162,168 ----
"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,176 ****
--- 172,178 ----
"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,185 ****
--- 182,192 ----
"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
_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
