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

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

[nongnu] elpa/hyperdrive be7dc28786 11/13: Tidy: (hyperdrive-next-versio


From: ELPA Syncer
Subject: [nongnu] elpa/hyperdrive be7dc28786 11/13: Tidy: (hyperdrive-next-version) Use if instead of pcase
Date: Fri, 8 Sep 2023 19:00:09 -0400 (EDT)

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

    Tidy: (hyperdrive-next-version) Use if instead of pcase
---
 hyperdrive.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 6eb24779b6..a0a390be18 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -543,8 +543,10 @@ recurse, passing NO-RECURSE t to 
`hyperdrive-next-version'."
       (if (hyperdrive--entry-directory-p entry)
           ;; For directories, increment the version number by one.
           (let ((next-version (1+ (hyperdrive-entry-version entry))))
-            (open-at-version (pcase next-version
-                               (latest-version nil) (_ next-version))))
+            (open-at-version (if (eq next-version latest-version)
+                                 ;; Remove version number upon reaching the 
end of the history.
+                                 nil
+                               next-version)))
         (pcase-let* ((`(,_range-start . ,(map (:range-end range-end))) 
(hyperdrive-entry-version-range entry))
                      (next-range-start (1+ range-end))
                      ((map (:existsp next-range-existsp) (:range-end 
next-range-end))



reply via email to

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