mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-06 11:55:48 +00:00
Code Issues Releases Activity

(menu-bar-make-mm-toggle, menu-bar-make-toggle)

Browse Source 
(menu-bar-options-menu): Fix list quoting (Bug#4429).
This commit is contained in:
Juri Linkov 2009-11-03 07:28:19 +00:00
parent 8b68d2df05
commit cf4aaa59c3
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/menu-bar.el
View File

@ -601,9 +601,9 @@ HELP is the text to use for the tooltip.
PROPS are additional properties."
`(list 'menu-item (purecopy ,doc) ',fname
,@props
':help (purecopy ,help)
':button '(:toggle . (and (default-boundp ',fname)
(default-value ',fname)))))
:help (purecopy ,help)
:button '(:toggle . (and (default-boundp ',fname)
(default-value ',fname)))))
(defmacro menu-bar-make-toggle (name variable doc message help &rest body)
`(progn
@ -627,9 +627,9 @@ by \"Save Options\" in Custom buffers.")
;; the user have already set explicitly in his init file.
(if interactively (customize-mark-as-set ',variable)))
(list 'menu-item (purecopy ,doc) ',name
':help (purecopy ,help)
':button '(:toggle . (and (default-boundp ',variable)
(default-value ',variable))))))
:help (purecopy ,help)
:button '(:toggle . (and (default-boundp ',variable)
(default-value ',variable))))))
;; Function for setting/saving default font.
@ -1039,15 +1039,15 @@ mail status in mode line"))
(menu-bar-make-mm-toggle cua-mode
"C-x/C-c/C-v Cut and Paste (CUA)"
"Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste"
(:visible (or (not (boundp 'cua-enable-cua-keys))
cua-enable-cua-keys))))
(:visible '(or (not (boundp 'cua-enable-cua-keys))
cua-enable-cua-keys))))
(define-key menu-bar-options-menu [cua-emulation-mode]
(menu-bar-make-mm-toggle cua-mode
"Shift movement mark region (CUA)"
"Use shifted movement keys to set and extend the region."
(:visible (and (boundp 'cua-enable-cua-keys)
(not cua-enable-cua-keys)))))
(:visible '(and (boundp 'cua-enable-cua-keys)
(not cua-enable-cua-keys)))))
(define-key menu-bar-options-menu [case-fold-search]
(menu-bar-make-toggle toggle-case-fold-search case-fold-search
@ -1127,7 +1127,7 @@ mail status in mode line"))
(menu-bar-make-mm-toggle transient-mark-mode
"Active Region Highlighting"
"Make text in active region stand out in color (Transient Mark mode)"
(:enable (not cua-mode))))
(:enable '(not cua-mode))))
;; The "Tools" menu items