branch: externals/compat
commit 57834ac3f93aa3c6af02e4484241c59bcbc676d0
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
compat-29: Fixes to buffer-match-p
- not clause adjusted to recent updates in emacs-29 branch
- and clause had a bug
---
compat-29.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/compat-29.el b/compat-29.el
index b000411bac..5cc6b79251 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -214,13 +214,13 @@ CONDITION is either:
(buffer-local-value 'major-mode buffer)
(cdr condition)))
((eq (car-safe condition) 'not)
- (not (funcall match (cadr condition))))
+ (not (funcall match (cdr condition))))
((eq (car-safe condition) 'or)
(funcall match (cdr condition)))
((eq (car-safe condition) 'and)
(catch 'fail
- (dolist (c (cdr conditions))
- (unless (funcall match c)
+ (dolist (c (cdr condition))
+ (unless (funcall match (list c))
(throw 'fail nil)))
t)))
(throw 'match t)))))))
