# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1279799667 -7200
# Node ID 2d68a79d521364b287728079b8ed3f25f344cf9b
# Parent  03b090e66a1a63a1f8f4225cd5f79327f6fafaea
* dired.el (dired-mode-map): Use command remapping (bug#6632).

diff -r 03b090e66a1a -r 2d68a79d5213 lisp/ChangeLog
--- 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).
diff -r 03b090e66a1a -r 2d68a79d5213 lisp/dired.el
--- 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)