From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 7 Sep 1997 04:43:10 +0000 (+0000)
Subject: (menu-bar-options-menu): Simplify global-font-lock-mode
X-Git-Tag: emacs-20.1~155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8ad97b87ee123a4185ae0413617022df1c809635;p=emacs.git

(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 46b2c973a79..52ed14f4b32 100644
--- 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))