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
;; 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.
(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
(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))))
\f
;; The "Tools" menu items