[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 530a4af 1/2: macroexp--cons doc fix
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master 530a4af 1/2: macroexp--cons doc fix |
Date: |
Fri, 2 Aug 2019 17:11:42 -0400 (EDT) |
branch: master
commit 530a4af66cee9e028e767d5be471dfd9d4955f50
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
macroexp--cons doc fix
* lisp/emacs-lisp/macroexp.el (macroexp--cons): Doc fix (bug#19371).
---
lisp/emacs-lisp/macroexp.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 9af7532..a04b395 100644
--- a/lisp/emacs-lisp/macroexp.el
+++ b/lisp/emacs-lisp/macroexp.el
@@ -33,7 +33,8 @@
(defvar macroexpand-all-environment nil)
(defun macroexp--cons (car cdr original-cons)
- "Return (CAR . CDR), using ORIGINAL-CONS if possible."
+ "Return ORIGINAL-CONS if the car/cdr of it is `eq' to CAR and CDR,
respectively.
+If not, return (CAR . CDR)."
(if (and (eq car (car original-cons)) (eq cdr (cdr original-cons)))
original-cons
(cons car cdr)))