[Emacs-diffs] Changes to emacs/lisp/emulation/cua-base.el

[Kim F. Storm]

Index: emacs/lisp/emulation/cua-base.el
diff -u emacs/lisp/emulation/cua-base.el:1.68 
emacs/lisp/emulation/cua-base.el:1.69
--- emacs/lisp/emulation/cua-base.el:1.68       Mon Feb  6 11:37:04 2006
+++ emacs/lisp/emulation/cua-base.el    Sat Mar 25 00:55:00 2006
@@ -370,6 +370,22 @@
                 (other :tag "Enabled" t))
   :group 'cua)
 
+(defcustom cua-rectangle-mark-key [(control return)]
+  "Global key used to toggle the cua rectangle mark."
+  :set #'(lambda (symbol value)
+          (set symbol value)
+          (when (and (boundp 'cua--keymaps-initalized)
+                     cua--keymaps-initalized)
+            (define-key cua-global-keymap value
+              'cua-set-rectangle-mark)
+            (when (boundp 'cua--rectangle-keymap)
+              (define-key cua--rectangle-keymap value
+                'cua-clear-rectangle-mark)
+              (define-key cua--region-keymap value
+                'cua-toggle-rectangle-mark))))
+  :type 'key-sequence
+  :group 'cua)
+
 (defcustom cua-rectangle-modifier-key 'meta
   "*Modifier key used for rectangle commands bindings.
 On non-window systems, always use the meta modifier.
@@ -1275,7 +1291,7 @@
            cua-rectangle-modifier-key
          'meta))
   ;; C-return always toggles rectangle mark
-  (define-key cua-global-keymap [(control return)]     'cua-set-rectangle-mark)
+  (define-key cua-global-keymap cua-rectangle-mark-key 'cua-set-rectangle-mark)
   (unless (eq cua--rectangle-modifier-key 'meta)
     (cua--M/H-key cua-global-keymap ?\s                        
'cua-set-rectangle-mark)
     (define-key cua-global-keymap
@@ -1401,7 +1417,8 @@
 shifted movement key, set `cua-highlight-region-shift-only'."
   :global t
   :group 'cua
-  :set-after '(cua-enable-modeline-indications cua-rectangle-modifier-key)
+  :set-after '(cua-enable-modeline-indications
+              cua-rectangle-mark-key cua-rectangle-modifier-key)
   :require 'cua-base
   :link '(emacs-commentary-link "cua-base.el")
   (setq mark-even-if-inactive t)