(menu-bar-options-menu): Simplify global-font-lock-mode

entry using enhanced global-font-lock-mode function.

diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index 46b2c973a79cea0564d4e2c74ba84134034ee4ff..52ed14f4b32b7db1a7ea5f6a23b1e723cf0498a8 100644 (file)
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -402,22 +402,17 @@ Do the same for the keys of the same name."
 (define-key menu-bar-options-menu [auto-fill-mode]
   '("Toggle Auto Fill (word wrap) in Text modes"
     . toggle-text-mode-auto-fill))
-(define-key menu-bar-options-menu [font-lock-mode]
-  (menu-bar-make-toggle toggle-font-lock-mode font-lock-mode
-                       "Toggle Font Lock (syntax highlighting)"
-                       "Font Lock mode %s"
+(define-key menu-bar-options-menu [toggle-global-lazy-font-lock-mode]
+  (menu-bar-make-toggle toggle-global-lazy-font-lock-mode nil
+                       "Toggle Global Font Lock (highlights syntax)"
+                       "Global Font Lock mode %s"
+                       ;; Make sure a support mode is used;
+                       ;; otherwise Font Lock will be too slow.
                        (require 'font-lock)
-                       (if global-font-lock-mode
-                           (let ((buffers (buffer-list)))
-                             (while buffers
-                               (with-current-buffer (car buffers)
-                                 (if font-lock-mode
-                                     (font-lock-mode 0)))
-                               (setq buffers (cdr buffers)))
-                             (setq global-font-lock-mode nil))
-                         (setq font-lock-support-mode 'lazy-lock-mode)
-                         (global-font-lock-mode))
-                       global-font-lock-mode))
+                       (if (not global-font-lock-mode)
+                           (or font-lock-support-mode
+                               (setq font-lock-support-mode 'lazy-lock-mode)))
+                       (global-font-lock-mode)))
 
 (define-key menu-bar-help-menu [emacs-version]
   '("Show Version" . emacs-version))