branch: elpa/hyperdrive
commit 6d01fbb5c8950217f2d7789df11cfb11e73f0b19
Author: Adam Porter <a...@alphapapa.net>
Commit: Adam Porter <a...@alphapapa.net>
Fix: (hyperdrive-open) Reuse existing window when possible
---
hyperdrive-lib.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 9664b1e9bd..47c06d7c18 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -493,7 +493,7 @@ Sends a request to the gateway for hyperdrive's latest
version."
(cl-defun hyperdrive-open
(entry &key recurse (createp t) (messagep t)
(then (lambda ()
- (pop-to-buffer (current-buffer)
'(display-buffer-same-window)))))
+ (pop-to-buffer (current-buffer)
'((display-buffer-reuse-window display-buffer-same-window))))))
"Open hyperdrive ENTRY.
If RECURSE, proceed up the directory hierarchy if given path is
not found. THEN is a function to pass to the handler which will
