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 686b5a36664fdb5cbefdd1bec404fb0fc9910e90..c79df677e0815183c79b47460c0dda2d5a85208e 100644 (file)
--- 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