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

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

[nongnu] elpa/hyperdrive beb1f180fa 11/32: Tidy: (hyperdrive-dir-sort) N


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive beb1f180fa 11/32: Tidy: (hyperdrive-dir-sort) Nest to avoid setf
Date: Mon, 4 Sep 2023 18:59:34 -0400 (EDT)

branch: elpa/hyperdrive
commit beb1f180fadf303ae341c367a29e265d6c1ae3f1
Author: Joseph Turner <joseph@ushin.org>
Commit: Adam Porter <adam@alphapapa.net>

    Tidy: (hyperdrive-dir-sort) Nest to avoid setf
---
 hyperdrive-dir.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 8ef9f4913f..b2fecc3054 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -182,9 +182,8 @@ DIRECTORY-SORT should be a valid value of
   (interactive (list (hyperdrive-complete-sort)))
   (setq-local hyperdrive-directory-sort directory-sort)
   (let ((entries (ewoc-collect hyperdrive-ewoc #'hyperdrive-entry-p)))
-    (setf entries (hyperdrive-sort-entries entries))
     (ewoc-filter hyperdrive-ewoc #'ignore)
-    (dolist (entry entries)
+    (dolist (entry (hyperdrive-sort-entries entries))
       (ewoc-enter-last hyperdrive-ewoc entry))))
 
 ;;;; Imenu support



reply via email to

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