Function: if-let*

if-let* is a macro defined in subr.el.gz.

Signature

(if-let* VARLIST THEN &rest ELSE)

Documentation

Bind variables according to VARLIST and evaluate THEN or ELSE.

This is like if-let but doesn't handle a VARLIST of the form
(SYMBOL SOMETHING) specially.

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defmacro if-let* (varlist then &rest else)
  "Bind variables according to VARLIST and evaluate THEN or ELSE.
This is like `if-let' but doesn't handle a VARLIST of the form
\(SYMBOL SOMETHING) specially."
  (declare (indent 2)
           (debug ((&rest [&or symbolp (symbolp form) (form)])
                   body)))
  (if varlist
      `(let* ,(setq varlist (internal--build-bindings varlist))
         (if ,(caar (last varlist))
             ,then
           ,@else))
    `(let* () ,then)))