emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/hyperdrive 6defbd3e23 10/19: Revert: -view-file-other-wind


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 6defbd3e23 10/19: Revert: -view-file-other-window
Date: Sat, 14 Oct 2023 16:00:46 -0400 (EDT)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]