Skip to content

Commit

Permalink
(menu-bar-help-menu): Rename info item to "Info (Browse Manuals)".
Browse files Browse the repository at this point in the history
(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.
  • Loading branch information
Richard M. Stallman committed Sep 3, 1997
1 parent 8a25e66 commit 40e4a6f
Showing 1 changed file with 14 additions and 6 deletions.
20 changes: 14 additions & 6 deletions lisp/menu-bar.el
Expand Up @@ -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
Expand Down Expand Up @@ -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))
Expand All @@ -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]
Expand Down

0 comments on commit 40e4a6f

Please sign in to comment.