mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

* emulation/cua-base.el (cua--init-keymaps): Move C-S-x and C-S-c

Browse Source 
bindings from cua--cua-keys-keymap to cua--region-keymap, as they are
only needed when the region is active.  This also makes the output
from C-h b look normal when cua-mode is enabled (no C-S-x/c bindings).
This commit is contained in:
Kim F. Storm 2003-01-25 11:41:58 +00:00
parent 7a2fe6fa6a
commit d6f9ff152a
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lisp/ChangeLog
View File

@ -1,3 +1,10 @@
2003-01-25 Kim F. Storm <storm@cua.dk>
* emulation/cua-base.el (cua--init-keymaps): Move C-S-x and C-S-c
bindings from cua--cua-keys-keymap to cua--region-keymap, as they are
only needed when the region is active. This also makes the output
from C-h b look normal when cua-mode is enabled (no C-S-x/c bindings).
2003-01-25 Michael Kifer <kifer@cs.stonybrook.edu>
* ediff.el (ediff-revision): better defaults.
@ -10,12 +17,10 @@
* info.el (Info-extract-menu-node-name): When looking for end of menu
item, don't stop at first ":"; instead, continue until trailing
context is either a space or newline.
(Info-complete-menu-item): Change var `pattern' to allow ":" in menu
item.
(Info-complete-menu-item): Var `pattern': allow ":" in menu item.
(Info-menu): Likewise, for regexp used in backwards search.
(Info-try-follow-nearest-node): Remove case added in previous edit.
Instead, change the regexp in the following case to allow ":" in menu
item.
Change regexp in the following case to allow ":" in menu item.
(Info-fontify-node): Fix bug: Handle `next-property-change' returning
point-max as "hasn't already been done".

5
lisp/emulation/cua-base.el
View File

@ -1115,9 +1115,7 @@ Extra commands should be added to `cua-user-movement-commands'")
(define-key cua-global-keymap [remap advertised-undo] 'cua-undo)
(define-key cua--cua-keys-keymap [(control x) timeout] 'kill-region)
(define-key cua--cua-keys-keymap [(shift control x)] 'Control-X-prefix)
(define-key cua--cua-keys-keymap [(control c) timeout] 'copy-region-as-kill)
(define-key cua--cua-keys-keymap [(shift control c)] 'mode-specific-command-prefix)
(define-key cua--cua-keys-keymap [(control z)] 'undo)
(define-key cua--cua-keys-keymap [(control v)] 'yank)
(define-key cua--cua-keys-keymap [(meta v)] 'cua-repeat-replace-region)
@ -1137,6 +1135,9 @@ Extra commands should be added to `cua-user-movement-commands'")
(define-key cua--prefix-repeat-keymap [(control c) left] 'cua--prefix-copy-handler)
(define-key cua--prefix-repeat-keymap [(control c) right] 'cua--prefix-copy-handler)
;; Enable shifted fallbacks for C-x and C-c when region is active
(define-key cua--region-keymap [(shift control x)] 'Control-X-prefix)
(define-key cua--region-keymap [(shift control c)] 'mode-specific-command-prefix)
;; replace current region
(define-key cua--region-keymap [remap self-insert-command] 'cua-replace-region)
(define-key cua--region-keymap [remap self-insert-iso] 'cua-replace-region)