From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 2 Aug 2019 21:11:28 +0000 (+0200)
Subject: macroexp doc fixes
X-Git-Tag: emacs-27.0.90~1741
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e56e85d227b9c14b02e9c938efe994176a015db2;p=emacs.git

macroexp doc fixes

* lisp/emacs-lisp/macroexp.el (macroexp-progn): Doc clarification
(bug#19371).
(macroexp-let*): Doc fix.
---

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index a04b3951c6a..9b29d0058c0 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -319,7 +319,8 @@ definitions to shadow the loaded ones for use in file byte-compilation."
     (cons (nreverse decls) body)))
 
 (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)))
 
 (defun macroexp-unprogn (exp)
@@ -328,7 +329,7 @@ Never returns an empty list."
   (if (eq (car-safe exp) 'progn) (or (cdr exp) '(nil)) (list exp)))
 
 (defun macroexp-let* (bindings exp)
-  "Return an expression equivalent to \\=`(let* ,bindings ,exp)."
+  "Return an expression equivalent to \\=`(let* ,BINDINGS ,EXP)."
   (cond
    ((null bindings) exp)
    ((eq 'let* (car-safe exp)) `(let* (,@bindings ,@(cadr exp)) ,@(cddr exp)))