From e56e85d227b9c14b02e9c938efe994176a015db2 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 2 Aug 2019 23:11:28 +0200 Subject: [PATCH] macroexp doc fixes * lisp/emacs-lisp/macroexp.el (macroexp-progn): Doc clarification (bug#19371). (macroexp-let*): Doc fix. --- lisp/emacs-lisp/macroexp.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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))) -- 2.39.2