Mercurial > emacs

comparison lisp/menu-bar.el @ 90116:29e773288013

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-23 Merge from emacs--cvs-trunk--0 Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0 (patch 150-165) - Update from CVS - Merge from gnus--rel--5.10 - Add info/dir to arch branch * miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 34-37) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Wed, 09 Mar 2005 00:09:34 +0000
parents 7e3f621f1dd4 f26879919f58
children 13796b0653c7
comparison
equal deleted inserted replaced
90115:fb290921b93c 90116:29e773288013
182 :enable (not (window-minibuffer-p 182 :enable (not (window-minibuffer-p
183 (frame-selected-window menu-updating-frame))) 183 (frame-selected-window menu-updating-frame)))
184 :help "Insert another file into current buffer")) 184 :help "Insert another file into current buffer"))
185 (define-key menu-bar-file-menu [dired] 185 (define-key menu-bar-file-menu [dired]
186 '(menu-item "Open Directory..." dired 186 '(menu-item "Open Directory..." dired
187 :enable (not (window-minibuffer-p
188 (frame-selected-window menu-updating-frame)))
187 :help "Read a directory, operate on its files")) 189 :help "Read a directory, operate on its files"))
188 (define-key menu-bar-file-menu [open-file] 190 (define-key menu-bar-file-menu [open-file]
189 '(menu-item "Open File..." find-file-existing 191 '(menu-item "Open File..." find-file-existing
190 :enable (not (window-minibuffer-p 192 :enable (not (window-minibuffer-p
191 (frame-selected-window menu-updating-frame))) 193 (frame-selected-window menu-updating-frame)))
588 ;(defvar menu-bar-preferences-menu (make-sparse-keymap "Preferences")) 590 ;(defvar menu-bar-preferences-menu (make-sparse-keymap "Preferences"))
589 591
590 (defmacro menu-bar-make-mm-toggle (fname doc help &optional props) 592 (defmacro menu-bar-make-mm-toggle (fname doc help &optional props)
591 "Make a menu-item for a global minor mode toggle. 593 "Make a menu-item for a global minor mode toggle.
592 FNAME is the minor mode's name (variable and function). 594 FNAME is the minor mode's name (variable and function).
593 DOC is the text to use the menu entry. 595 DOC is the text to use for the menu entry.
594 HELP is the text to use for the tooltip. 596 HELP is the text to use for the tooltip.
595 PROPS are additional properties." 597 PROPS are additional properties."
596 `'(menu-item ,doc ,fname 598 `'(menu-item ,doc ,fname
597 ,@(if props props) 599 ,@(if props props)
598 :help ,help 600 :help ,help
635 (interactive) 637 (interactive)
636 (let ((need-save nil)) 638 (let ((need-save nil))
637 ;; These are set with menu-bar-make-mm-toggle, which does not 639 ;; These are set with menu-bar-make-mm-toggle, which does not
638 ;; put on a customized-value property. 640 ;; put on a customized-value property.
639 (dolist (elt '(line-number-mode column-number-mode cua-mode show-paren-mode 641 (dolist (elt '(line-number-mode column-number-mode cua-mode show-paren-mode
640 transient-mark-mode global-font-lock-mode)) 642 transient-mark-mode global-font-lock-mode
643 blink-cursor-mode))
641 (and (customize-mark-to-save elt) 644 (and (customize-mark-to-save elt)
642 (setq need-save t))) 645 (setq need-save t)))
643 ;; These are set with `customize-set-variable'. 646 ;; These are set with `customize-set-variable'.
644 (dolist (elt '(scroll-bar-mode 647 (dolist (elt '(scroll-bar-mode
645 debug-on-quit debug-on-error menu-bar-mode tool-bar-mode 648 debug-on-quit debug-on-error menu-bar-mode tool-bar-mode
957 (menu-bar-make-toggle toggle-debug-on-error debug-on-error 960 (menu-bar-make-toggle toggle-debug-on-error debug-on-error
958 "Enter Debugger on Error" "Debug on Error %s" 961 "Enter Debugger on Error" "Debug on Error %s"
959 "Enter Lisp debugger when an error is signaled")) 962 "Enter Lisp debugger when an error is signaled"))
960 (define-key menu-bar-options-menu [debugger-separator] 963 (define-key menu-bar-options-menu [debugger-separator]
961 '("--")) 964 '("--"))
965
966 (define-key menu-bar-options-menu [blink-cursor-mode]
967 (menu-bar-make-mm-toggle blink-cursor-mode
968 "Blinking Cursor"
969 "Whether the cursor blinks (Blink Cursor mode)"))
970 (define-key menu-bar-options-menu [cursor-separator]
971 '("--"))
972
962 (define-key menu-bar-options-menu [toggle-auto-compression] 973 (define-key menu-bar-options-menu [toggle-auto-compression]
963 '(menu-item "Automatic File De/compression" 974 '(menu-item "Automatic File De/compression"
964 auto-compression-mode 975 auto-compression-mode
965 :help "Transparently decompress compressed files" 976 :help "Transparently decompress compressed files"
966 :button (:toggle . (rassq 'jka-compr-handler 977 :button (:toggle . (rassq 'jka-compr-handler