diff options
| author | Eli Barzilay <eli@barzilay.org> | 2015-11-12 03:07:38 -0500 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2015-11-12 09:35:10 +0100 |
| commit | 851be0f60718795c985f504db4823344508b107d (patch) | |
| tree | 9d1520368ec651e39ec8238d6061e72e8ec50549 /lisp | |
| parent | 055ca3a57e7326cd24bbb958531f6938466f5fd9 (diff) | |
| download | emacs-851be0f60718795c985f504db4823344508b107d.tar.gz emacs-851be0f60718795c985f504db4823344508b107d.tar.bz2 emacs-851be0f60718795c985f504db4823344508b107d.zip | |
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.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/dired.el | 4 |
1 files 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) |