# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 873319933 0
# Node ID 920d0a7b59305f002dc4bc7b19aa8a87d0186a9c
# Parent  1657f4dd8c05ad4baea8e0c67430a14b6e1b5930
(menu-bar-help-menu): Rename info item to "Info (Browse Manuals)".

(menu-bar-options-menu): String now "Global Options".
Rewrite the font lock toggle to turn off font lock on all buffers.
Choose lazy-lock by setting font-lock-support-mode.

diff -r 1657f4dd8c05 -r 920d0a7b5930 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Wed Sep 03 20:35:35 1997 +0000
+++ b/lisp/menu-bar.el	Wed Sep 03 20:52:13 1997 +0000
@@ -359,7 +359,7 @@
   '("Top-level Customization Group" . customize))
 
 ;; Options menu
-(defvar menu-bar-options-menu (make-sparse-keymap "Options"))
+(defvar menu-bar-options-menu (make-sparse-keymap "Global Options"))
 
 (defmacro menu-bar-make-toggle (name variable doc message &rest body)
   `(progn
@@ -406,10 +406,18 @@
   (menu-bar-make-toggle toggle-font-lock-mode font-lock-mode
 			"Toggle Font Lock (syntax highlighting)"
 			"Font Lock mode %s"
-			(global-font-lock-mode)
-			(if font-lock-mode
-			    (lazy-lock-mode t))
-			font-lock-mode))
+			(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))
 
 (define-key menu-bar-help-menu [emacs-version]
   '("Show Version" . emacs-version))
@@ -433,7 +441,7 @@
   '("Command Apropos..." . command-apropos))
 (define-key menu-bar-help-menu [describe-mode]
   '("Describe Mode" . describe-mode))
-(define-key menu-bar-help-menu [info] '("Browse Manuals" . info))
+(define-key menu-bar-help-menu [info] '("Info (Browse Manuals)" . info))
 (define-key menu-bar-help-menu [emacs-faq] '("Emacs FAQ" . view-emacs-FAQ))
 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news))
 (define-key menu-bar-help-menu [options-menu]