[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 851be0f: Add "^" to the interactive specs of `dired
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] master 851be0f: Add "^" to the interactive specs of `dired-next/previous-line' |
Date: |
Thu, 12 Nov 2015 08:38:18 +0000 |
branch: master
commit 851be0f60718795c985f504db4823344508b107d
Author: Eli Barzilay <address@hidden>
Commit: Juanma Barranquero <address@hidden>
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 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/dired.el b/lisp/dired.el
index 5f0a83a..049d45d 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 851be0f: Add "^" to the interactive specs of `dired-next/previous-line',
Juanma Barranquero <=