branch: externals/compat
commit 5fc428f35fdccdfc99998cbd29c54e568d1de087
Author: Philip Kaludercic <phil...@posteo.net>
Commit: Philip Kaludercic <phil...@posteo.net>
Handle edge-case with an empty and-let* body
---
compat-26.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/compat-26.el b/compat-26.el
index 18c53e446b..3da78cffc6 100644
--- a/compat-26.el
+++ b/compat-26.el
@@ -479,7 +479,7 @@ are non-nil, then the result is non-nil."
(when (or (cdr var) (consp (car var)))
(setq last (caar list))))
`(let* ,(nreverse list)
- (if ,(caar list) ,(macroexp-progn body)))))
+ (if ,(caar list) ,(macroexp-progn (or body '(t)))))))
;;;; Defined in image.el
