Merge branch 'main' into emacs-31

1 files changed, 4 insertions, 4 deletions

diff --git a/compat-28.el b/compat-28.el
index 05217ea..4d8ac7c 100644
--- a/compat-28.el
+++ b/compat-28.el
@@ -519,11 +519,11 @@ as the new values of the bound variables in the recursive invocation."
                                    (funcall tco-progn (cdr handler))))
                            (nthcdr 3 expr))))
                  ((eq (car-safe expr) 'and)
-		  (if (cddr expr)
-		      (funcall tco `(if ,(cadr expr) ,(cons 'and (cddr expr))))
+                  (if (cddr expr)
+                      (funcall tco `(if ,(cadr expr) ,(cons 'and (cddr expr))))
                     (funcall tco (cadr expr))))
-		 ((eq (car-safe expr) 'progn)
-		  (cons (car expr) (funcall tco-progn (cdr expr))))
+                 ((eq (car-safe expr) 'progn)
+                  (cons (car expr) (funcall tco-progn (cdr expr))))
                  ((memq (car-safe expr) '(let let*))
                   (append (list (car expr) (cadr expr))
                           (funcall tco-progn (cddr expr))))