Mercurial > emacs

comparison lisp/menu-bar.el @ 19793:8c5aca90861b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-options-menu): Simplify global-font-lock-mode entry using enhanced global-font-lock-mode function.
author Richard M. Stallman <rms@gnu.org>
date Sun, 07 Sep 1997 04:43:10 +0000
parents 920d0a7b5930
children 6c26b3f61e02
comparison
equal deleted inserted replaced
19792:953af2c5a9d1 19793:8c5aca90861b
400 (define-key menu-bar-options-menu [toggle-auto-compression] 400 (define-key menu-bar-options-menu [toggle-auto-compression]
401 '("Toggle Automatic File De/compression" . auto-compression-mode)) 401 '("Toggle Automatic File De/compression" . auto-compression-mode))
402 (define-key menu-bar-options-menu [auto-fill-mode] 402 (define-key menu-bar-options-menu [auto-fill-mode]
403 '("Toggle Auto Fill (word wrap) in Text modes" 403 '("Toggle Auto Fill (word wrap) in Text modes"
404 . toggle-text-mode-auto-fill)) 404 . toggle-text-mode-auto-fill))
405 (define-key menu-bar-options-menu [font-lock-mode] 405 (define-key menu-bar-options-menu [toggle-global-lazy-font-lock-mode]
406 (menu-bar-make-toggle toggle-font-lock-mode font-lock-mode 406 (menu-bar-make-toggle toggle-global-lazy-font-lock-mode nil
407 "Toggle Font Lock (syntax highlighting)" 407 "Toggle Global Font Lock (highlights syntax)"
408 "Font Lock mode %s" 408 "Global Font Lock mode %s"
409 ;; Make sure a support mode is used;
410 ;; otherwise Font Lock will be too slow.
409 (require 'font-lock) 411 (require 'font-lock)
410 (if global-font-lock-mode 412 (if (not global-font-lock-mode)
411 (let ((buffers (buffer-list))) 413 (or font-lock-support-mode
412 (while buffers 414 (setq font-lock-support-mode 'lazy-lock-mode)))
413 (with-current-buffer (car buffers) 415 (global-font-lock-mode)))
414 (if font-lock-mode
415 (font-lock-mode 0)))
416 (setq buffers (cdr buffers)))
417 (setq global-font-lock-mode nil))
418 (setq font-lock-support-mode 'lazy-lock-mode)
419 (global-font-lock-mode))
420 global-font-lock-mode))
421 416
422 (define-key menu-bar-help-menu [emacs-version] 417 (define-key menu-bar-help-menu [emacs-version]
423 '("Show Version" . emacs-version)) 418 '("Show Version" . emacs-version))
424 (define-key menu-bar-help-menu [report-emacs-bug] 419 (define-key menu-bar-help-menu [report-emacs-bug]
425 '("Send Bug Report..." . report-emacs-bug)) 420 '("Send Bug Report..." . report-emacs-bug))