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

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

[nongnu] elpa/hyperdrive 1e1bf9d696 07/10: Change: (hyperdrive-dir-sort)


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive 1e1bf9d696 07/10: Change: (hyperdrive-dir-sort) Only prompt with prefix
Date: Fri, 6 Oct 2023 16:01:39 -0400 (EDT)

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

    Change: (hyperdrive-dir-sort) Only prompt with prefix
---
 hyperdrive-dir.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index d4a7627494..7b27df2bdd 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -310,7 +310,10 @@ Interactively, opens file or directory at point in
   "Sort current `hyperdrive-dir' buffer by DIRECTORY-SORT.
 DIRECTORY-SORT should be a valid value of
 `hyperdrive-directory-sort'."
-  (interactive (list (hyperdrive-dir-complete-sort)))
+  (interactive (list (if current-prefix-arg
+                         (hyperdrive-dir-complete-sort)
+                       (hyperdrive-dir-toggle-sort-direction
+                        (car hyperdrive-directory-sort) 
hyperdrive-directory-sort))))
   (setq-local hyperdrive-directory-sort directory-sort)
   (with-silent-modifications
     (let ((entries (ewoc-collect hyperdrive-ewoc #'hyperdrive-entry-p)))



reply via email to

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