; * subr.el (buffer-match-p): Ensure that (and) is always satisfied
This commit is contained in:
parent
b5f70c239e
commit
2a848209df
1 changed files with 1 additions and 1 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue