From: Teemu Likonen Date: Thu, 22 Jul 2010 11:54:27 +0000 (+0200) Subject: * dired.el (dired-mode-map): Use command remapping (bug#6632). X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~51^2~7 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=aac818a886599f5a1edf5524f3920feed62ca454;p=emacs.git * dired.el (dired-mode-map): Use command remapping (bug#6632). --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2ef5d1509c0..ff3648d1824 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2010-07-22 Teemu Likonen (tiny change) + + * dired.el (dired-mode-map): Use command remapping (bug#6632). + 2010-07-22 Lawrence Mitchell * term/vt100.el (vt100-wide-mode): Fix :init-value keyword (bug#6620). diff --git a/lisp/dired.el b/lisp/dired.el index 4fe804dd46d..15cb1b1facd 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -1380,10 +1380,8 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (define-key map ">" 'dired-next-dirline) (define-key map "^" 'dired-up-directory) (define-key map " " 'dired-next-line) - (define-key map "\C-n" 'dired-next-line) - (define-key map "\C-p" 'dired-previous-line) - (define-key map [down] 'dired-next-line) - (define-key map [up] 'dired-previous-line) + (define-key map [remap next-line] 'dired-next-line) + (define-key map [remap previous-line] 'dired-previous-line) ;; hiding (define-key map "$" 'dired-hide-subdir) (define-key map "\M-$" 'dired-hide-all) @@ -1393,7 +1391,7 @@ Do so according to the former subdir alist OLD-SUBDIR-ALIST." (define-key map (kbd "M-s f C-s") 'dired-isearch-filenames) (define-key map (kbd "M-s f M-C-s") 'dired-isearch-filenames-regexp) ;; misc - (define-key map "\C-x\C-q" 'dired-toggle-read-only) + (define-key map [remap toggle-read-only] 'dired-toggle-read-only) (define-key map "?" 'dired-summary) (define-key map "\177" 'dired-unmark-backward) (define-key map [remap undo] 'dired-undo)