; * subr.el (buffer-match-p): Ensure that (and) is always satisfied

This commit is contained in:
Philip Kaludercic 2022-04-17 14:03:33 +02:00
parent b5f70c239e
commit 2a848209df

View file

@ -6690,7 +6690,7 @@ CONDITION is either:
(funcall match (cdr condition)))
((eq (car-safe condition) 'and)
(catch 'fail
(dolist (c conditions)
(dolist (c (cdr conditions))
(unless (funcall match c)
(throw 'fail nil)))
t)))