branch: elpa/hyperdrive
commit 4768ce06401320f96ad58f4b95049273a6d6224e
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>
Fix: (he//api-then) Only fill h/latest-version with latest version
---
hyperdrive-lib.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 1c3eac480c..5202629417 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -262,7 +262,9 @@ version. Finally, persists ENTRY's hyperdrive."
(when x-drive-size
(setf (map-elt (h/etc (he/hyperdrive entry)) 'disk-usage)
(cl-parse-integer x-drive-size)))
- (when x-drive-version
+ (when (and x-drive-version
+ ;; If version is specified, x-drive-size will be equal to it.
+ (null (he/version entry)))
(setf (h/latest-version (he/hyperdrive entry))
(string-to-number x-drive-version)))
;; TODO: Update buffers like h/describe-hyperdrive after updating drive.
