diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-09-03 20:52:13 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-09-03 20:52:13 +0000 |
| commit | 21efd27b1f788a957a1cf5399a11082b12cc77fb (patch) | |
| tree | 4fc8b72bc5f2a239424f6554c047d027763532b8 /lisp | |
| parent | 914894115d3b0ffdffe58578adb8fd6d6ac09143 (diff) | |
| download | emacs-21efd27b1f788a957a1cf5399a11082b12cc77fb.tar.gz | |
(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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/menu-bar.el | 20 |
1 files changed, 14 insertions, 6 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 9e40fe3f2c6..46b2c973a79 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -359,7 +359,7 @@ Do the same for the keys of the same name." '("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 @@ Do the same for the keys of the same name." (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 @@ Do the same for the keys of the same name." '("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] |