[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/hyperdrive 12a2bc0b4e 4/4: Fix: (h/history-get) Use approp
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/hyperdrive 12a2bc0b4e 4/4: Fix: (h/history-get) Use appropriate equality predicate |
Date: |
Tue, 17 Dec 2024 22:02:52 -0500 (EST) |
branch: elpa/hyperdrive
commit 12a2bc0b4e7cf4654847da0d312dca09533e0e65
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Joseph Turner <joseph@ushin.org>
Fix: (h/history-get) Use appropriate equality predicate
(eq "a" "a") => nil
(equal "a" "a") => t
---
hyperdrive-history.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/hyperdrive-history.el b/hyperdrive-history.el
index 11aef52a35..becc7bbe87 100644
--- a/hyperdrive-history.el
+++ b/hyperdrive-history.el
@@ -85,7 +85,7 @@ Updates `hyperdrive-existent-versions' as a side effect."
("put" t)
("del" nil)
("unknown" 'unknown)))
- (when (eq "put" type)
+ (when (equal "put" type)
(h/update-existent-versions
hyperdrive path (he/version history-entry)))
(push history-entry history-entries)))