# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1130887299 0
# Node ID a6851dd5148bb34f72d8da8988889cff1f93ff94
# Parent  e739ea58ce8d2fe330699a2b1ec31e96b0b37d37
(menu-bar-options-menu): Show "Shift Movement (CUA)"
item instead of "C-x/C-c/C-v (CUA)" if cua-enable-cua-keys is nil.

diff -r e739ea58ce8d -r a6851dd5148b lisp/menu-bar.el
--- a/lisp/menu-bar.el	Tue Nov 01 23:21:20 2005 +0000
+++ b/lisp/menu-bar.el	Tue Nov 01 23:21:39 2005 +0000
@@ -1003,7 +1003,16 @@
 (define-key menu-bar-options-menu [cua-mode]
   (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"))
+			   "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))))
+
+(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)))))
 
 (define-key menu-bar-options-menu [case-fold-search]
   (menu-bar-make-toggle toggle-case-fold-search case-fold-search