Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 12:31:25 +00:00
Code Issues Projects Releases Packages Wiki Activity

; * lisp/subr.el (and-let*): Expand to 'and' not 'when'.

Browse source
This commit is contained in:
Sean Whitton 2026-02-20 12:33:25 +00:00
parent 0903fe3ac0
commit f680b988c2
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/subr.el
View file

@ -2874,11 +2874,11 @@ for forms evaluated for side-effect with returned values ignored."
;; both `when-let*' and `and-let*' (in addition to the additional
;; feature of `and-let*' when BODY is empty).
(declare (indent 1) (debug if-let*))
(let (res)
(let (res (body* (macroexp-progn body)))
(if varlist
`(let* ,(setq varlist (internal--build-bindings varlist))
(when ,(setq res (caar (last varlist)))
,@(or body `(,res))))
,(progn (setq res (caar (last varlist)))
(if body* `(and ,res ,body*) res)))
`(let* () ,@(or body '(t))))))
(defmacro if-let (spec then &rest else)