branch: elpa/hyperdrive
commit 16da934f02a80968df2202a82c250dc882916962
Author: Adam Porter <a...@alphapapa.net>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-dir-find-file) Use our own callback
---
hyperdrive-dir.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 07a7c972b8..c17362f38d 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -278,7 +278,9 @@ Interactively, visit file or directory at point in
(declare (modes hyperdrive-dir-mode))
(interactive (list (hyperdrive-dir--entry-at-point)))
(cl-assert entry nil "No file/directory at point")
- (hyperdrive-open entry))
+ (hyperdrive-open entry
+ :then (lambda ()
+ (display-buffer (current-buffer)
hyperdrive-directory-display-buffer-action))))
(declare-function hyperdrive-view-file "hyperdrive")
(defun hyperdrive-dir-view-file (entry)
