# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1043494903 0
# Node ID b8d252e5954b54e77a7d858de8fd02a6490d9bd8
# Parent  bb4e71346ae7d7f3f52af823b1cea7ee3b8fa9de
* 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).

diff -r bb4e71346ae7 -r b8d252e5954b lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Sat Jan 25 10:29:29 2003 +0000
+++ b/lisp/emulation/cua-base.el	Sat Jan 25 11:41:43 2003 +0000
@@ -1115,9 +1115,7 @@
   (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 @@
   (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)