procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(menu-bar-make-mm-toggle): Doc fix.

Browse source 
(menu-bar-options-save): Add blink-cursor-mode.
(menu-bar-options-menu): Add blink-cursor-mode.
This commit is contained in:
Luc Teirlinck 2005-03-05 01:18:06 +00:00
parent c3a52675f2
commit 7faa9d0221
1 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/menu-bar.el
View file

@ -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