branch: elpa/hyperdrive
commit a730cdc9e9560d78ab7addbdf4cfd71fd8210f2a
Author: Adam Porter <a...@alphapapa.net>
Commit: Joseph Turner <jos...@ushin.org>
Change: (hyperdrive-open) Use display-buffer-same-window action
---
hyperdrive-lib.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 1e7d28defd..7c6b24d4fa 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -488,9 +488,10 @@ Sends a request to the gateway for hyperdrive's latest
version."
('unknown 'unknown)))))
(declare-function hyperdrive-history "hyperdrive-history")
-(cl-defun hyperdrive-open (entry &key recurse (createp t)
- (then (lambda ()
- (pop-to-buffer (current-buffer)))))
+(cl-defun hyperdrive-open
+ (entry &key recurse (createp t)
+ (then (lambda ()
+ (pop-to-buffer (current-buffer)
'(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
