# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1257303173 0
# Node ID 20a7667a5619eb1255d35e539aef7b53e8c97c25
# Parent  a2094e76667e65f9bc40a0ca021d339341ba68e7
(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'.

diff -r a2094e76667e -r 20a7667a5619 lisp/menu-bar.el
--- a/lisp/menu-bar.el	Wed Nov 04 00:27:34 2009 +0000
+++ b/lisp/menu-bar.el	Wed Nov 04 02:52:53 2009 +0000
@@ -600,7 +600,7 @@
 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 @@
   (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 @@
   (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