diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2025-06-12 00:43:05 +0200 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2025-06-12 00:43:05 +0200 |
| commit | 2577cc74d996620766adf1c9ec8f44ecbac32e79 (patch) | |
| tree | 6aca21595d5c7ffd76b252c8564440eeca6d9823 | |
| parent | a9efb4a6c98da984a93df4a5d41d8d3e73459178 (diff) | |
; Whitespace
| -rw-r--r-- | compat-28.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compat-28.el b/compat-28.el index 2e89800..ed05b87 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)))) |