[elpa] externals/compat 97058d5 1/4: Handle TCO for condition-case

[ELPA Syncer]

branch: externals/compat
commit 97058d52f1be5e6af7db3475b3703f357cf9ef8a
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Handle TCO for condition-case
---
 compat-28.1.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/compat-28.1.el b/compat-28.1.el
index 9c5b26c..de49bad 100644
--- a/compat-28.1.el
+++ b/compat-28.1.el
@@ -440,6 +440,10 @@ as the new values of the bound variables in the recursive 
invocation."
                            (if ,var ,(funcall tco var)
                              ,(funcall tco (cons 'or (cddr expr))))))
                     (funcall tco (cadr expr))))
+                 ((eq (car-safe expr) 'condition-case)
+                  (append (list 'condition-case (cadr expr)
+                                (funcall tco (caddr expr)))
+                          (cdddr expr)))
                  ((memq (car-safe expr) '(and progn))
                   (cons (car expr) (funcall tco-progn (cdr expr))))
                  ((memq (car-safe expr) '(let let*))