[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e56e85d 2/2: macroexp doc fixes
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master e56e85d 2/2: macroexp doc fixes |
Date: |
Fri, 2 Aug 2019 17:11:42 -0400 (EDT) |
branch: master
commit e56e85d227b9c14b02e9c938efe994176a015db2
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
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 a04b395..9b29d00 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)))