branch: elpa/hyperdrive
commit e6e1723fd5e43b71ba07a54802bedba6fe795305
Author: Adam Porter <a...@alphapapa.net>
Commit: Joseph Turner <jos...@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))
