Skip to content

Commit c5b1146

Browse files
committed
auto-compile--tree-member: Use equal as test function
1 parent 5304e2f commit c5b1146

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

auto-compile.el

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -272,7 +272,7 @@ non-nil."
272272
(defun auto-compile--tree-member (elt tree &optional delete)
273273
;; Also known as keycast--tree-member.
274274
(and (listp tree)
275-
(if-let* ((pos (cl-position elt tree))
275+
(if-let* ((pos (cl-position elt tree :test #'equal))
276276
(mem (nthcdr pos tree)))
277277
(cond ((not delete) mem)
278278
((cdr mem)

0 commit comments

Comments
 (0)