From e24f42ab1c24e45f0cdf44f62c5652166369468a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Wed, 4 Nov 2009 02:53:03 +0000 Subject: [PATCH] (menu-bar-make-mm-toggle): Quote each element of `props'. (menu-bar-options-menu): Don't quote the `prop' arg of `menu-bar-make-mm-toggle'. --- lisp/ChangeLog | 6 ++++++ lisp/menu-bar.el | 12 ++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5ff816a3552..9e4df085040 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-11-04 Juri Linkov + + * menu-bar.el (menu-bar-make-mm-toggle): Quote each element of `props'. + (menu-bar-options-menu): Don't quote the `prop' arg of + `menu-bar-make-mm-toggle'. + 2009-11-04 Juanma Barranquero * calendar/calendar.el (cal-loaddefs): diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index aca6d855ece..bae181c02e3 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -600,7 +600,7 @@ DOC is the text to use for the menu entry. HELP is the text to use for the tooltip. PROPS are additional properties." `(list 'menu-item (purecopy ,doc) ',fname - ,@props + ,@(mapcar (lambda (p) (list 'quote p)) props) :help (purecopy ,help) :button '(:toggle . (and (default-boundp ',fname) (default-value ',fname))))) @@ -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 -- 2.39.2