comparison lisp/menu-bar.el @ 66625:a6851dd5148b

(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.
author Kim F. Storm <storm@cua.dk>
date Tue, 01 Nov 2005 23:21:39 +0000
parents 3c87836dc8f6
children d839e7b2c0c8
comparison
equal deleted inserted replaced
66624:e739ea58ce8d 66625:a6851dd5148b
1001 (define-key menu-bar-options-menu [edit-options-separator] 1001 (define-key menu-bar-options-menu [edit-options-separator]
1002 '("--")) 1002 '("--"))
1003 (define-key menu-bar-options-menu [cua-mode] 1003 (define-key menu-bar-options-menu [cua-mode]
1004 (menu-bar-make-mm-toggle cua-mode 1004 (menu-bar-make-mm-toggle cua-mode
1005 "C-x/C-c/C-v Cut and Paste (CUA)" 1005 "C-x/C-c/C-v Cut and Paste (CUA)"
1006 "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste")) 1006 "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste"
1007 (:visible (or (not (boundp 'cua-enable-cua-keys))
1008 cua-enable-cua-keys))))
1009
1010 (define-key menu-bar-options-menu [cua-emulation-mode]
1011 (menu-bar-make-mm-toggle cua-mode
1012 "Shift movement mark region (CUA)"
1013 "Use shifted movement keys to set and extend the region."
1014 (:visible (and (boundp 'cua-enable-cua-keys)
1015 (not cua-enable-cua-keys)))))
1007 1016
1008 (define-key menu-bar-options-menu [case-fold-search] 1017 (define-key menu-bar-options-menu [case-fold-search]
1009 (menu-bar-make-toggle toggle-case-fold-search case-fold-search 1018 (menu-bar-make-toggle toggle-case-fold-search case-fold-search
1010 "Case-Insensitive Search" 1019 "Case-Insensitive Search"
1011 "Case-Insensitive Search %s" 1020 "Case-Insensitive Search %s"