emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]