branch: elpa/keycast
commit b231289e3b63a982187f84fda73f3852a14963fd
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
keycast--tree-member: Use equal as test function
---
keycast.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/keycast.el b/keycast.el
index bd382ded02..0b8a565207 100644
--- a/keycast.el
+++ b/keycast.el
@@ -520,7 +520,7 @@ t to show the actual COMMAND, or a symbol to be shown
instead."
(defun keycast--tree-member (elt tree &optional delete)
;; Also known as auto-compile--tree-member.
(and (listp tree)
- (if-let* ((pos (cl-position elt tree))
+ (if-let* ((pos (cl-position elt tree :test #'equal))
(mem (nthcdr pos tree)))
(cond ((not delete) mem)
((cdr mem)
