From: Richard Stallman <rms@gnu.org>
Date: Sat, 10 Aug 2024 22:45:06 +0000 (-0400)
Subject: Fix buglet.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dfde2c1ee70fa0ead74baa8d17066da468bbca55;p=emacs.git

Fix buglet.

* lisp/emacs-lisp/cond-star.el (cond*-match): Move a backquote.

(cherry picked from commit ca56dc2e71660cf501f417ab683590ba2e333661)
---

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