branch: elpa/hyperdrive
commit 6defbd3e236dc064ad918bac86be2132806897c4
Author: Adam Porter <a...@alphapapa.net>
Commit: Joseph Turner <jos...@ushin.org>
Revert: -view-file-other-window
Because view-buffer calls switch-to-buffer, it would be awkward to
override how it displays the buffer, so it may not be worthwhile to
provide -view-file-other-window commands. So removing this for now;
it can be squashed away, or we can decide to hack up a workaround and
add a -view-file-other-window command for the history buffer too.
---
hyperdrive-dir.el | 11 -----------
1 file changed, 11 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index e7b8854a04..5394c09eac 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -241,7 +241,6 @@ With point on header, returns directory entry."
"RET" #'hyperdrive-dir-find-file
"o" #'hyperdrive-dir-find-file-other-window
"v" #'hyperdrive-dir-view-file
- "V" #'hyperdrive-dir-view-file-other-window
"j" #'imenu
"w" #'hyperdrive-dir-copy-url
"d" #'hyperdrive-download
@@ -306,16 +305,6 @@ Interactively, opens file or directory at point in
(cl-assert entry nil "No file/directory at point")
(hyperdrive-view-file entry))
-(defun hyperdrive-dir-view-file-other-window (entry)
- "Open hyperdrive ENTRY at point in `view-mode' in other window.
-Interactively, opens file or directory at point in
-`hyperdrive-dir' buffer."
- (declare (modes hyperdrive-dir-mode))
- (interactive (list (hyperdrive-dir--entry-at-point)))
- (cl-assert entry nil "No file/directory at point")
- (let ((hyperdrive-directory-display-buffer-action
'(display-buffer-other-window)))
- (hyperdrive-view-file entry)))
-
(declare-function hyperdrive-copy-url "hyperdrive")
(defun hyperdrive-dir-copy-url (entry)
