diff options
| author | Lars Ingebrigtsen | 2019-08-03 13:47:40 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-03 13:48:31 +0200 |
| commit | 8edd4bc22af5a255dc4941469cd30a835dcd1234 (patch) | |
| tree | acd2b4b90c48a988e440dfca573b6bef79d92ec8 | |
| parent | 3bff466aa687464f32d378aed01af41f45bbb239 (diff) | |
| download | emacs-8edd4bc22af5a255dc4941469cd30a835dcd1234.tar.gz emacs-8edd4bc22af5a255dc4941469cd30a835dcd1234.zip | |
Fix previous macroexp-progn doc string fix
* lisp/emacs-lisp/macroexp.el (macroexp-progn): Fix previous doc
string clarification.
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 9b29d0058c0..d27cc0a63c5 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el | |||
| @@ -319,8 +319,9 @@ definitions to shadow the loaded ones for use in file byte-compilation." | |||
| 319 | (cons (nreverse decls) body))) | 319 | (cons (nreverse decls) body))) |
| 320 | 320 | ||
| 321 | (defun macroexp-progn (exps) | 321 | (defun macroexp-progn (exps) |
| 322 | "Return EXPS with `progn' prepended. | 322 | "Return EXPS (a list of expressions) with `progn' prepended. |
| 323 | If EXPS is a single expression, `progn' is not prepended." | 323 | If EXPS is a list with a single expression, `progn' is not |
| 324 | prepended, but that expression is returned instead." | ||
| 324 | (if (cdr exps) `(progn ,@exps) (car exps))) | 325 | (if (cdr exps) `(progn ,@exps) (car exps))) |
| 325 | 326 | ||
| 326 | (defun macroexp-unprogn (exp) | 327 | (defun macroexp-unprogn (exp) |