From dfde2c1ee70fa0ead74baa8d17066da468bbca55 Mon Sep 17 00:00:00 2001 From: Richard Stallman Date: Sat, 10 Aug 2024 18:45:06 -0400 Subject: [PATCH] Fix buglet. * lisp/emacs-lisp/cond-star.el (cond*-match): Move a backquote. (cherry picked from commit ca56dc2e71660cf501f417ab683590ba2e333661) --- lisp/emacs-lisp/cond-star.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/cond-star.el b/lisp/emacs-lisp/cond-star.el index 686b5a36664..c79df677e08 100644 --- a/lisp/emacs-lisp/cond-star.el +++ b/lisp/emacs-lisp/cond-star.el @@ -347,8 +347,8 @@ as in `cond*-condition'." (if uncondit-clauses (setq expression `(progn ,expression - (cond*-bind-pattern-syms - ,(if retrieve-value-swap-outs + ,(cond*-bind-pattern-syms + (if retrieve-value-swap-outs ;; If we saved the bindings' values after the ;; true-clauses, bind the same variables ;; here to the values we saved then. @@ -356,7 +356,7 @@ as in `cond*-condition'." ;; Otherwise bind them to the values ;; they matched in the pattern. (car raw-result)) - (cond*-convert uncondit-clauses))))) + (cond*-convert uncondit-clauses))))) ;; Bind the backtrack-aliases if any. ;; We need them bound for the TRUE-EXPS. ;; It is harmless to bind them around IFFALSE -- 2.39.2