Mercurial > emacs
changeset 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 | e739ea58ce8d |
| children | 8d60d23ffa33 |
| files | lisp/menu-bar.el |
| diffstat | 1 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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