Mercurial > emacs
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" |