From: Luc Teirlinck Date: Sat, 5 Mar 2005 01:18:06 +0000 (+0000) Subject: (menu-bar-make-mm-toggle): Doc fix. X-Git-Tag: ttn-vms-21-2-B4~1994 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7faa9d02211cc1a401c5f962d1c7b7f8f573c9d4;p=emacs.git (menu-bar-make-mm-toggle): Doc fix. (menu-bar-options-save): Add blink-cursor-mode. (menu-bar-options-menu): Add blink-cursor-mode. --- diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 1c95e54dc5c..093969d5725 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -590,7 +590,7 @@ Do the same for the keys of the same name." (defmacro menu-bar-make-mm-toggle (fname doc help &optional props) "Make a menu-item for a global minor mode toggle. FNAME is the minor mode's name (variable and function). -DOC is the text to use the menu entry. +DOC is the text to use for the menu entry. HELP is the text to use for the tooltip. PROPS are additional properties." `'(menu-item ,doc ,fname @@ -637,7 +637,8 @@ by \"Save Options\" in Custom buffers.") ;; These are set with menu-bar-make-mm-toggle, which does not ;; put on a customized-value property. (dolist (elt '(line-number-mode column-number-mode cua-mode show-paren-mode - transient-mark-mode global-font-lock-mode)) + transient-mark-mode global-font-lock-mode + blink-cursor-mode)) (and (customize-mark-to-save elt) (setq need-save t))) ;; These are set with `customize-set-variable'. @@ -959,6 +960,14 @@ by \"Save Options\" in Custom buffers.") "Enter Lisp debugger when an error is signaled")) (define-key menu-bar-options-menu [debugger-separator] '("--")) + +(define-key menu-bar-options-menu [blink-cursor-mode] + (menu-bar-make-mm-toggle blink-cursor-mode + "Blinking Cursor" + "Whether the cursor blinks (Blink Cursor mode)")) +(define-key menu-bar-options-menu [cursor-separator] + '("--")) + (define-key menu-bar-options-menu [toggle-auto-compression] '(menu-item "Automatic File De/compression" auto-compression-mode