branch: externals/mpdired
commit 6bb7fab67b2f536aa801d766483b3704809d6545
Author: Manuel Giraud <[email protected]>
Commit: Manuel Giraud <[email protected]>
fix more navigation
---
mpdired.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/mpdired.el b/mpdired.el
index b81233df04..cb5f325bde 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -6,7 +6,9 @@
(defvar-keymap mpdired-browse-mode-map
:doc "Local keymap for MPDired browser."
+ "C-n" 'mpdired-next-line
"n" 'mpdired-next-line
+ "C-p" 'mpdired-previous-line
"p" 'mpdired-previous-line
"q" 'bury-buffer
"C-m" 'mpdired-listall-at-point
@@ -124,10 +126,10 @@
(insert "\n"))
(mpdired--insert-entry (car (last data))))
;; Go to the previous directory line when ascending
- (cond (mpdired--ascending-p
+ (cond (ascending-p
(goto-char (point-min))
(re-search-forward from-directory nil t)
- (goto-char (match-beginning 1)))
+ (goto-char (line-beginning-position)))
(t
(goto-char (point-min))
(if top (mpdired-next-line))))
