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