[nongnu] elpa/hyperdrive d158584d74 8/9: Change: (hyperdrive--clean-buffer) Also compare versions

[ELPA Syncer]

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

    Change: (hyperdrive--clean-buffer) Also compare versions
---
 hyperdrive-lib.el | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index dbbda4276d..c9b6f2ed5c 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1434,14 +1434,15 @@ When BUFFER is nil, act on current buffer."
 
 (defun hyperdrive-entry-equal-p (a b)
   "Return non-nil if hyperdrive entries A and B are equal.
-Compares only public key and path."
-  (pcase-let (((cl-struct hyperdrive-entry (path a-path)
+Compares only public key, version, and path."
+  (pcase-let (((cl-struct hyperdrive-entry (path a-path) (version a-version)
                           (hyperdrive (cl-struct hyperdrive (public-key 
a-key))))
                a)
-              ((cl-struct hyperdrive-entry (path b-path)
+              ((cl-struct hyperdrive-entry (path b-path) (version b-version)
                           (hyperdrive (cl-struct hyperdrive (public-key 
b-key))) )
                b))
-    (and (equal a-path b-path)
+    (and (eq a-version b-version)
+         (equal a-path b-path)
          (equal a-key b-key))))
 
 (defun hyperdrive-equal-p (a b)