From 851be0f60718795c985f504db4823344508b107d Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Thu, 12 Nov 2015 03:07:38 -0500 Subject: [PATCH] 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. --- lisp/dired.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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) -- 2.39.2