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

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

[nongnu] elpa/hyperdrive 42949a84a1 030/123: Revert "Change: (hyperdrive


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 42949a84a1 030/123: Revert "Change: (hyperdrive-up) Take ENTRY as argument"
Date: Fri, 6 Oct 2023 01:01:00 -0400 (EDT)

branch: elpa/hyperdrive
commit 42949a84a197eca0912f8c63aa51b8b36ca2d34a
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Revert "Change: (hyperdrive-up) Take ENTRY as argument"
    
    This reverts commit bd1e671ed52ae00d58d3c168d9bd21bfb56ca4c9.
    
    hyperdrive-up should always act on the current entry, not on the entry
    at point in the directory buffer. For hyperdrive--context-entry to
    work here, it would need to optionally ignore the entry at point.
---
 hyperdrive.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index f7e9fa33ca..9acdbe94f1 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -482,11 +482,11 @@ hyperdrive directory listing or a `hyperdrive-mode' file 
buffer."
     (kill-new url)
     (hyperdrive-message "%s" url)))
 
-(defun hyperdrive-up (entry)
-  "Go up to parent directory of ENTRY."
+(defun hyperdrive-up ()
+  "Go up to parent directory."
   (declare (modes hyperdrive-mode))
-  (interactive (list (hyperdrive--context-entry)))
-  (if-let ((parent (hyperdrive-parent entry)))
+  (interactive)
+  (if-let ((parent (hyperdrive-parent hyperdrive-current-entry)))
       ;; TODO: Go to entry in parent directory.
       (hyperdrive-open parent)
     (hyperdrive-user-error "At root directory")))



reply via email to

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