[nongnu] elpa/hyperdrive e6e1723fd5 07/19: Change: (hyperdrive-menu) hyperdrive-up command

[ELPA Syncer]

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

    Change: (hyperdrive-menu) hyperdrive-up command
---
 hyperdrive-menu.el | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

diff --git a/hyperdrive-menu.el b/hyperdrive-menu.el
index 9bb1513219..70fc26c170 100644
--- a/hyperdrive-menu.el
+++ b/hyperdrive-menu.el
@@ -128,13 +128,9 @@
      ("^" "Up to parent"
       (lambda ()
         (interactive)
-        (hyperdrive-up (oref transient-current-prefix scope)
-                       :then (lambda ()
-                               (pop-to-buffer (current-buffer) 
'(display-buffer-same-window))
-                               (call-interactively #'hyperdrive-menu))))
+        (hyperdrive-up (oref transient-current-prefix scope)))
       :inapt-if-not (lambda ()
-                      (hyperdrive-parent (oref transient--prefix scope)))
-      :transient t)
+                      (hyperdrive-parent (oref transient--prefix scope))))
      ("s" "Sort" hyperdrive-dir-sort
       :if (lambda ()
             (eq major-mode 'hyperdrive-dir-mode))