branch: elpa/hyperdrive
commit 42949a84a197eca0912f8c63aa51b8b36ca2d34a
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Revert "Change: (hyperdrive-up) Take ENTRY as argument"
This reverts commit bd1e671ed52ae00d58d3c168d9bd21bfb56ca4c9.
hyperdrive-up should always act on the current entry, not on the entry
at point in the directory buffer. For hyperdrive--context-entry to
work here, it would need to optionally ignore the entry at point.
---
hyperdrive.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/hyperdrive.el b/hyperdrive.el
index f7e9fa33ca..9acdbe94f1 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -482,11 +482,11 @@ hyperdrive directory listing or a `hyperdrive-mode' file
buffer."
(kill-new url)
(hyperdrive-message "%s" url)))
-(defun hyperdrive-up (entry)
- "Go up to parent directory of ENTRY."
+(defun hyperdrive-up ()
+ "Go up to parent directory."
(declare (modes hyperdrive-mode))
- (interactive (list (hyperdrive--context-entry)))
- (if-let ((parent (hyperdrive-parent entry)))
+ (interactive)
+ (if-let ((parent (hyperdrive-parent hyperdrive-current-entry)))
;; TODO: Go to entry in parent directory.
(hyperdrive-open parent)
(hyperdrive-user-error "At root directory")))
