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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 192b491..02884f7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-01-26  Glenn Morris  <rgm@gnu.org>
+
+       * 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  <rudalics@gmx.at>
 
        * window.el (window-state-get, window--state-get-1): Don't deal

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index f775fd9..9b54954 100644 (file)
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -85,12 +85,12 @@ use \\[customize]."
   :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

diff --git a/lisp/term.el b/lisp/term.el
index 4050781..f44f342 100644 (file)
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -907,8 +907,7 @@ is buffer-local."
   (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
 

diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 5e60666..b6f07ef 100644 (file)
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -941,7 +941,7 @@ current, and kill the buffer that visits the link."
     (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")))