master ca56dc2e716: Fix buglet.

[Richard M. Stallman]

branch: master
commit ca56dc2e71660cf501f417ab683590ba2e333661
Author: Richard Stallman <rms@gnu.org>
Commit: Richard Stallman <rms@gnu.org>

    Fix buglet.
    
    * lisp/emacs-lisp/cond-star.el (cond*-match): Move a backquote.
---
 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 6309b0d1a15..5e8564c29c2 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