Mercurial > emacs

comparison lisp/menu-bar.el @ 46102:3a5c7022ed2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2002-06-30 Simon Josefsson <jas@extundo.com> * menu-bar.el (menu-bar-options-menu): Move elisp mode names from menu entry into balloon help.
author Simon Josefsson <jas@extundo.com>
date Sun, 30 Jun 2002 21:29:39 +0000
parents c027436226dd
children 70c39fa2253e
comparison
equal deleted inserted replaced
46101:07cf11153de5 46102:3a5c7022ed2f
862 (menu-bar-make-toggle toggle-case-fold-search case-fold-search 862 (menu-bar-make-toggle toggle-case-fold-search case-fold-search
863 "Case-Insensitive Search" 863 "Case-Insensitive Search"
864 "Case-Insensitive Search %s" 864 "Case-Insensitive Search %s"
865 "Ignore letter-case in search")) 865 "Ignore letter-case in search"))
866 (define-key menu-bar-options-menu [auto-fill-mode] 866 (define-key menu-bar-options-menu [auto-fill-mode]
867 '(menu-item "Word Wrap in Text Modes (Auto Fill)" 867 '(menu-item "Word Wrap in Text Modes"
868 (lambda () 868 (lambda ()
869 (interactive) 869 (interactive)
870 (toggle-text-mode-auto-fill) 870 (toggle-text-mode-auto-fill)
871 ;; This is somewhat questionable, as `text-mode-hook' 871 ;; This is somewhat questionable, as `text-mode-hook'
872 ;; might have changed outside customize. 872 ;; might have changed outside customize.
873 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11. 873 ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2002-02-11.
874 (customize-mark-as-set 'text-mode-hook)) 874 (customize-mark-as-set 'text-mode-hook))
875 :help "Automatically fill text between left and right margins" 875 :help "Automatically fill text between left and right margins (Auto Fill)"
876 :button (:toggle . (if (listp text-mode-hook) 876 :button (:toggle . (if (listp text-mode-hook)
877 (member 'turn-on-auto-fill text-mode-hook) 877 (member 'turn-on-auto-fill text-mode-hook)
878 (eq 'turn-on-auto-fill text-mode-hook))))) 878 (eq 'turn-on-auto-fill text-mode-hook)))))
879 (define-key menu-bar-options-menu [truncate-lines] 879 (define-key menu-bar-options-menu [truncate-lines]
880 '(menu-item "Truncate Long Lines in this Buffer" 880 '(menu-item "Truncate Long Lines in this Buffer"
889 889
890 (define-key menu-bar-options-menu [highlight-separator] 890 (define-key menu-bar-options-menu [highlight-separator]
891 '("--")) 891 '("--"))
892 (define-key menu-bar-options-menu [highlight-paren-mode] 892 (define-key menu-bar-options-menu [highlight-paren-mode]
893 (menu-bar-make-toggle toggle-highlight-paren-mode show-paren-mode 893 (menu-bar-make-toggle toggle-highlight-paren-mode show-paren-mode
894 "Paren Match Highlighting (Show Paren mode)" 894 "Paren Match Highlighting"
895 "Show Paren mode %s" 895 "Show Paren mode %s"
896 "Highlight matching/mismatched parentheses at cursor")) 896 "Highlight matching/mismatched parentheses at cursor (Show Paren mode)"))
897 (define-key menu-bar-options-menu [transient-mark-mode] 897 (define-key menu-bar-options-menu [transient-mark-mode]
898 (menu-bar-make-toggle toggle-transient-mark-mode transient-mark-mode 898 (menu-bar-make-toggle toggle-transient-mark-mode transient-mark-mode
899 "Active Region Highlighting (Transient Mark mode)" 899 "Active Region Highlighting"
900 "Transient Mark mode %s" 900 "Transient Mark mode %s"
901 "Make text in active region stand out in color" 901 "Make text in active region stand out in color (Transient Mark mode)"
902 (:enable (not cua-mode)))) 902 (:enable (not cua-mode))))
903 (define-key menu-bar-options-menu [toggle-global-lazy-font-lock-mode] 903 (define-key menu-bar-options-menu [toggle-global-lazy-font-lock-mode]
904 (menu-bar-make-toggle toggle-global-lazy-font-lock-mode global-font-lock-mode 904 (menu-bar-make-toggle toggle-global-lazy-font-lock-mode global-font-lock-mode
905 "Syntax Highlighting (Global Font Lock mode)" 905 "Syntax Highlighting"
906 "Global Font Lock mode %s" 906 "Global Font Lock mode %s"
907 "Colorize text based on language syntax")) 907 "Colorize text based on language syntax (Global Font Lock mode)"))
908 908
909 909
910 ;; The "Tools" menu items 910 ;; The "Tools" menu items
911 911
912 (defun send-mail-item-name () 912 (defun send-mail-item-name ()