comparison lisp/menu-bar.el @ 23532:a493aa84f62f

(menu-bar-options-menu): Add options for truncate-lines and show-paren.
author Richard M. Stallman <rms@gnu.org>
date Wed, 21 Oct 1998 20:24:41 +0000
parents eef770da40ce
children f9ccd26b8627
comparison
equal deleted inserted replaced
23531:37ae25c77df0 23532:a493aa84f62f
418 'forward)))) 418 'forward))))
419 (define-key menu-bar-options-menu [case-fold-search] 419 (define-key menu-bar-options-menu [case-fold-search]
420 (menu-bar-make-toggle toggle-case-fold-search case-fold-search 420 (menu-bar-make-toggle toggle-case-fold-search case-fold-search
421 "Case folding in searches" 421 "Case folding in searches"
422 "Case folding in searches %s")) 422 "Case folding in searches %s"))
423 (define-key menu-bar-options-menu [truncate-lines]
424 (menu-bar-make-toggle
425 toggle-truncate-lines truncate-lines
426 "Line Truncation" "Line Truncation %s"
427 (prog1 (setq truncate-lines (not truncate-lines))
428 (set-buffer-modified-p (buffer-modified-p)))))
423 (define-key menu-bar-options-menu [transient-mark-mode] 429 (define-key menu-bar-options-menu [transient-mark-mode]
424 (menu-bar-make-toggle toggle-transient-mark-mode transient-mark-mode 430 (menu-bar-make-toggle toggle-transient-mark-mode transient-mark-mode
425 "Transient Mark Mode (highlights region)" 431 "Transient Mark Mode (highlights region)"
426 "Transient Mark mode %s")) 432 "Transient Mark mode %s"))
427 (define-key menu-bar-options-menu [toggle-auto-compression] 433 (define-key menu-bar-options-menu [toggle-auto-compression]