Commit 851be0f6 authored by Eli Barzilay's avatar Eli Barzilay Committed by Juanma Barranquero

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.
parent 055ca3a5
...@@ -2031,7 +2031,7 @@ Otherwise, toggle `read-only-mode'." ...@@ -2031,7 +2031,7 @@ Otherwise, toggle `read-only-mode'."
(defun dired-next-line (arg) (defun dired-next-line (arg)
"Move down lines then position at filename. "Move down lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line." Optional prefix ARG says how many lines to move; default is one line."
(interactive "p") (interactive "^p")
(let ((line-move-visual) (let ((line-move-visual)
(goal-column)) (goal-column))
(line-move arg t)) (line-move arg t))
...@@ -2044,7 +2044,7 @@ Optional prefix ARG says how many lines to move; default is one line." ...@@ -2044,7 +2044,7 @@ Optional prefix ARG says how many lines to move; default is one line."
(defun dired-previous-line (arg) (defun dired-previous-line (arg)
"Move up lines then position at filename. "Move up lines then position at filename.
Optional prefix ARG says how many lines to move; default is one line." Optional prefix ARG says how many lines to move; default is one line."
(interactive "p") (interactive "^p")
(dired-next-line (- (or arg 1)))) (dired-next-line (- (or arg 1))))
(defun dired-next-dirline (arg &optional opoint) (defun dired-next-dirline (arg &optional opoint)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment