diff options
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 5 |
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 | |||
| 411 | BINDINGS is a list of elements of the form (SYM EXP). Each EXP | ||
| 412 | can 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)) |