diff options
| author | Michael Heerdegen | 2019-08-04 14:43:43 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-04 14:43:43 +0200 |
| commit | bbb41a2071824415d8cf3127d0e3bcd706f5a420 (patch) | |
| tree | d73d705ff396bc15e7ff6823045d52a8b2b29401 | |
| parent | 9b7d25e481ebe2085aafbac983106d210b469b3a (diff) | |
| download | emacs-bbb41a2071824415d8cf3127d0e3bcd706f5a420.tar.gz emacs-bbb41a2071824415d8cf3127d0e3bcd706f5a420.zip | |
Clarify macroexp-let* doc string
* lisp/emacs-lisp/macroexp.el (macroexp-let2*): Clarify doc
string (bug#19371).
| -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)) |