[nongnu] elpa/hyperdrive 28d4b1a6d6 08/82: Add: (hyperdrive-equal-p, -entry-hyperdrive-equal-p)

[ELPA Syncer]

branch: elpa/hyperdrive
commit 28d4b1a6d646d0b357cc496ca77b465bd8c228ae
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Add: (hyperdrive-equal-p, -entry-hyperdrive-equal-p)
---
 hyperdrive-lib.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index fe412499b6..6660cf0911 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1410,5 +1410,14 @@ Compares only public key and path."
     (and (equal a-path b-path)
          (equal a-key b-key))))
 
+(defun hyperdrive-equal-p (a b)
+  "Return non-nil if hyperdrives A and B are equal.
+Compares their public keys."
+  (equal (hyperdrive-public-key a) (hyperdrive-public-key b)))
+
+(defun hyperdrive-entry-hyperdrive-equal-p (a b)
+  "Return non-nil if entries A and B have the same hyperdrive."
+  (hyperdrive-equal-p (hyperdrive-entry-hyperdrive a) 
(hyperdrive-entry-hyperdrive b)))
+
 (provide 'hyperdrive-lib)
 ;;; hyperdrive-lib.el ends here