[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))
- [nongnu] elpa/hyperdrive d7ad2d87e2 02/13: Change: (hyperdrive-mirror) Add faces for each status, (continued)
- [nongnu] elpa/hyperdrive d7ad2d87e2 02/13: Change: (hyperdrive-mirror) Add faces for each status, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 96326a0222 06/13: Fix: (hyperdrive--mirror) Signal user-error when no files to upload, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive bc622823e6 10/13: Tidy: Function call, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 4a6296f10f 09/13: Comment: Add NOTE, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 1423b9b8f2 08/13: Comment: Add TODO, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 0d6ad70c0c 03/13: Add: (hyperdrive-mirror.el) Add revert-buffer-function, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 2ce5f9c3a9 01/13: Change: (hyperdrive-mirror.el) Compare file modification times, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 39475924c0 04/13: Change: (hyperdrive-mirror) Distinguish older files from same mtime, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 0591645ed8 05/13: Comment: Add TODO, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive a71bea29a8 07/13: Comment: Update TODO, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive be7dc28786 11/13: Tidy: (hyperdrive-next-version) Use if instead of pcase,
ELPA Syncer <=
- [nongnu] elpa/hyperdrive 114bc1e7bc 12/13: Tidy, ELPA Syncer, 2023/09/08
- [nongnu] elpa/hyperdrive 24df174711 13/13: Merge branch 'mirror-compare-mtime', ELPA Syncer, 2023/09/08