[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/compat 57834ac3f9 3/4: compat-29: Fixes to buffer-match
From: |
ELPA Syncer |
Subject: |
[elpa] externals/compat 57834ac3f9 3/4: compat-29: Fixes to buffer-match-p |
Date: |
Sat, 7 Jan 2023 07:57:26 -0500 (EST) |
branch: externals/compat
commit 57834ac3f93aa3c6af02e4484241c59bcbc676d0
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@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)))))))