[Emacs-diffs] /srv/bzr/emacs/trunk r106937: Use ctl-x-map in place of C-x (bug#10566)

[Glenn Morris]

------------------------------------------------------------
revno: 106937
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Wed 2012-01-25 21:32:56 -0500
message:
  Use ctl-x-map in place of C-x (bug#10566)
  
  For an example of the problems NOT doing this might cause, see eg
  http://lists.gnu.org/archive/html/bug-gnu-emacs/2006-07/msg00000.html
  Eg after:
    (global-set-key (kbd "C-u") ctl-x-map)
    (global-set-key (kbd "C-x") 'universal-argument)
  just loading dired-x.el or term.el would give an error.
  
  * lisp/dired-x.el (dired-bind-jump): Use ctl-x-map and ctl-x-4-map.
  * lisp/term.el (term-raw-escape-map): Use Control-X-prefix.
  * lisp/vc/vc-hooks.el (vc-prefix-map): Use ctl-x-map.
modified:
  lisp/ChangeLog
  lisp/dired-x.el
  lisp/term.el
  lisp/vc/vc-hooks.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-25 14:52:10 +0000
+++ b/lisp/ChangeLog    2012-01-26 02:32:56 +0000
@@ -1,3 +1,9 @@
+2012-01-26  Glenn Morris  <address@hidden>
+
+       * dired-x.el (dired-bind-jump): Use ctl-x-map and ctl-x-4-map.
+       * term.el (term-raw-escape-map): Use Control-X-prefix.
+       * vc/vc-hooks.el (vc-prefix-map): Use ctl-x-map.  (Bug#10566)
+
 2012-01-25  Martin Rudalics  <address@hidden>
 
        * window.el (window-state-get, window--state-get-1): Don't deal

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el   2012-01-19 07:21:25 +0000
+++ b/lisp/dired-x.el   2012-01-26 02:32:56 +0000
@@ -85,12 +85,12 @@
   :set (lambda (sym val)
          (if (set sym val)
              (progn
-               (define-key global-map "\C-x\C-j" 'dired-jump)
-               (define-key global-map "\C-x4\C-j" 'dired-jump-other-window))
-           (if (eq 'dired-jump (lookup-key global-map "\C-x\C-j"))
-               (define-key global-map "\C-x\C-j" nil))
-           (if (eq 'dired-jump-other-window (lookup-key global-map 
"\C-x4\C-j"))
-               (define-key global-map "\C-x4\C-j" nil))))
+               (define-key ctl-x-map "\C-j" 'dired-jump)
+               (define-key ctl-x-4-map "\C-j" 'dired-jump-other-window))
+           (if (eq 'dired-jump (lookup-key ctl-x-map "\C-j"))
+               (define-key ctl-x-map "\C-j" nil))
+           (if (eq 'dired-jump-other-window (lookup-key ctl-x-4-map "\C-j"))
+               (define-key ctl-x-4-map "\C-j" nil))))
   :group 'dired-keys)
 
 (defcustom dired-bind-man t

=== modified file 'lisp/term.el'
--- a/lisp/term.el      2012-01-19 07:21:25 +0000
+++ b/lisp/term.el      2012-01-26 02:32:56 +0000
@@ -907,8 +907,7 @@
   (define-key map [remap self-insert-command] 'term-send-raw)
   (define-key map "\e" esc-map)
   (setq term-raw-map map)
-  (setq term-raw-escape-map
-       (copy-keymap (lookup-key (current-global-map) "\C-x")))
+  (setq term-raw-escape-map (copy-keymap 'Control-X-prefix))
 
   ;; Added nearly all the 'gray keys' -mm
 

=== modified file 'lisp/vc/vc-hooks.el'
--- a/lisp/vc/vc-hooks.el       2012-01-19 07:21:25 +0000
+++ b/lisp/vc/vc-hooks.el       2012-01-26 02:32:56 +0000
@@ -941,7 +941,7 @@
     (define-key map "~" 'vc-revision-other-window)
     map))
 (fset 'vc-prefix-map vc-prefix-map)
-(define-key global-map "\C-xv" 'vc-prefix-map)
+(define-key ctl-x-map "v" 'vc-prefix-map)
 
 (defvar vc-menu-map
   (let ((map (make-sparse-keymap "Version Control")))