diff options
author | Glenn Morris <rgm@gnu.org> | 2012-01-25 21:32:56 -0500 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2012-01-25 21:32:56 -0500 |
commit | e43273eff03ad9e6c7564057b35a5bf6810935f2 (patch) | |
tree | 32429e5f421e17725e68b5ab0eef0ff8ccc0c875 /lisp/dired-x.el | |
parent | 69b0acb95690de72a80beedf114f8f0896ef1354 (diff) | |
download | emacs-e43273eff03ad9e6c7564057b35a5bf6810935f2.tar.gz |
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.
Diffstat (limited to 'lisp/dired-x.el')
-rw-r--r-- | lisp/dired-x.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index f775fd952c0..9b54954695b 100644 --- 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 |