Commit e56e85d2 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

macroexp doc fixes

* lisp/emacs-lisp/macroexp.el (macroexp-progn): Doc clarification
(bug#19371).
(macroexp-let*): Doc fix.
parent 530a4af6
Pipeline #2719 failed with stage
in 90 minutes and 1 second
...@@ -319,7 +319,8 @@ definitions to shadow the loaded ones for use in file byte-compilation." ...@@ -319,7 +319,8 @@ definitions to shadow the loaded ones for use in file byte-compilation."
(cons (nreverse decls) body))) (cons (nreverse decls) body)))
(defun macroexp-progn (exps) (defun macroexp-progn (exps)
"Return an expression equivalent to \\=`(progn ,@EXPS)." "Return EXPS with `progn' prepended.
If EXPS is a single expression, `progn' is not prepended."
(if (cdr exps) `(progn ,@exps) (car exps))) (if (cdr exps) `(progn ,@exps) (car exps)))
(defun macroexp-unprogn (exp) (defun macroexp-unprogn (exp)
...@@ -328,7 +329,7 @@ Never returns an empty list." ...@@ -328,7 +329,7 @@ Never returns an empty list."
(if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp))) (if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp)))
(defun macroexp-let* (bindings exp) (defun macroexp-let* (bindings exp)
"Return an expression equivalent to \\=`(let* ,bindings ,exp)." "Return an expression equivalent to \\=`(let* ,BINDINGS ,EXP)."
(cond (cond
((null bindings) exp) ((null bindings) exp)
((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp))) ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment