[nongnu] elpa/hyperdrive a730cdc9e9 05/19: Change: (hyperdrive-open) Use display-buffer-same-window action

[ELPA Syncer]

branch: elpa/hyperdrive
commit a730cdc9e9560d78ab7addbdf4cfd71fd8210f2a
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@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