aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/emacs-lisp/macroexp.el5
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index d27cc0a63c5..72198c44004 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -406,7 +406,10 @@ cases where EXP is a constant."
406 ,bodysym))))) 406 ,bodysym)))))
407 407
408(defmacro macroexp-let2* (test bindings &rest body) 408(defmacro macroexp-let2* (test bindings &rest body)
409 "Bind each binding in BINDINGS as `macroexp-let2' does." 409 "Multiple binding version of `macroexp-let2'.
410
411BINDINGS is a list of elements of the form (SYM EXP). Each EXP
412can refer to symbols specified earlier in the binding list."
410 (declare (indent 2) (debug (sexp (&rest (sexp form)) body))) 413 (declare (indent 2) (debug (sexp (&rest (sexp form)) body)))
411 (pcase-exhaustive bindings 414 (pcase-exhaustive bindings
412 ('nil (macroexp-progn body)) 415 ('nil (macroexp-progn body))