[nongnu] elpa/hyperdrive 3ff1877985 032/123: Change: (hyperdrive-up) Take ENTRY as argument and check mode

[ELPA Syncer]

branch: elpa/hyperdrive
commit 3ff1877985c75bc86ff2b9c7f4d3dc91f2f64742
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive-up) Take ENTRY as argument and check mode
---
 hyperdrive.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index aa123f16ff..8a566af2b1 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -482,11 +482,15 @@ hyperdrive directory listing or a `hyperdrive-mode' file 
buffer."
     (kill-new url)
     (hyperdrive-message "%s" url)))
 
-(defun hyperdrive-up ()
-  "Go up to parent directory."
+(defun hyperdrive-up (entry)
+  "Go up to parent directory of ENTRY.
+Interactively, use the `hyperdrive-current-entry'."
   (declare (modes hyperdrive-mode))
-  (interactive)
-  (if-let ((parent (hyperdrive-parent hyperdrive-current-entry)))
+  (interactive (progn
+                 (unless (and hyperdrive-mode hyperdrive-current-entry)
+                   (user-error "Not a hyperdrive buffer"))
+                 (list hyperdrive-current-entry)))
+  (if-let ((parent (hyperdrive-parent entry)))
       ;; TODO: Go to entry in parent directory.
       (hyperdrive-open parent)
     (hyperdrive-user-error "At root directory")))