1003 |
(define-key menu-bar-options-menu [cua-mode] |
(define-key menu-bar-options-menu [cua-mode] |
1004 |
(menu-bar-make-mm-toggle cua-mode |
(menu-bar-make-mm-toggle cua-mode |
1005 |
"C-x/C-c/C-v Cut and Paste (CUA)" |
"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")) |
"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))))) |
1016 |
|
|
1017 |
(define-key menu-bar-options-menu [case-fold-search] |
(define-key menu-bar-options-menu [case-fold-search] |
1018 |
(menu-bar-make-toggle toggle-case-fold-search case-fold-search |
(menu-bar-make-toggle toggle-case-fold-search case-fold-search |