Mercurial > emacs
changeset 109487:2d68a79d5213
* dired.el (dired-mode-map): Use command remapping (bug#6632).
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 22 Jul 2010 13:54:27 +0200 |
| parents | 03b090e66a1a |
| children | ced3f5ab1023 |
| files | lisp/ChangeLog lisp/dired.el |
| diffstat | 2 files changed, 7 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jul 22 13:09:52 2010 +0200 +++ b/lisp/ChangeLog Thu Jul 22 13:54:27 2010 +0200 @@ -1,3 +1,7 @@ +2010-07-22 Teemu Likonen <tlikonen@iki.fi> (tiny change) + + * dired.el (dired-mode-map): Use command remapping (bug#6632). + 2010-07-22 Lawrence Mitchell <wence@gmx.li> * term/vt100.el (vt100-wide-mode): Fix :init-value keyword (bug#6620).
--- a/lisp/dired.el Thu Jul 22 13:09:52 2010 +0200 +++ b/lisp/dired.el Thu Jul 22 13:54:27 2010 +0200 @@ -1380,10 +1380,8 @@ (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 @@ (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)