From: Eli Barzilay <eli@barzilay.org>
Date: Thu, 12 Nov 2015 08:07:38 +0000 (-0500)
Subject: Add "^" to the interactive specs of `dired-next/previous-line'
X-Git-Tag: emacs-25.0.90~834
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=851be0f60718795c985f504db4823344508b107d;p=emacs.git

Add "^" to the interactive specs of `dired-next/previous-line'

* lisp/dired.el (dired-next-line, dired-previous-line): It makes sense
to bind these commands to the arrow keys, and that means that they work
better with a "^" in the `interactive' declaration so selection works
as expected.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 5f0a83afd04..049d45d2fa8 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2031,7 +2031,7 @@ Otherwise, toggle `read-only-mode'."
 (defun dired-next-line (arg)
   "Move down lines then position at filename.
 Optional prefix ARG says how many lines to move; default is one line."
-  (interactive "p")
+  (interactive "^p")
   (let ((line-move-visual)
 	(goal-column))
     (line-move arg t))
@@ -2044,7 +2044,7 @@ Optional prefix ARG says how many lines to move; default is one line."
 (defun dired-previous-line (arg)
   "Move up lines then position at filename.
 Optional prefix ARG says how many lines to move; default is one line."
-  (interactive "p")
+  (interactive "^p")
   (dired-next-line (- (or arg 1))))
 
 (defun dired-next-dirline (arg &optional opoint)