1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el
index 9af75320ec0..a04b3951c6a 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)))

diff --git a/lisp/emacs-lisp/macroexp.el b/lisp/emacs-lisp/macroexp.el index 9af75320ec0..a04b3951c6a 100644 --- a/lisp/emacs-lisp/macroexp.el +++ b/lisp/emacs-lisp/macroexp.el
@@ -33,7 +33,8 @@
33	(defvar macroexpand-all-environment nil)	33	(defvar macroexpand-all-environment nil)
34		34
35	(defun macroexp--cons (car cdr original-cons)	35	(defun macroexp--cons (car cdr original-cons)
36	"Return (CAR . CDR), using ORIGINAL-CONS if possible."	36	"Return ORIGINAL-CONS if the car/cdr of it is `eq' to CAR and CDR, respectively.
		37	If not, return (CAR . CDR)."
37	(if (and (eq car (car original-cons)) (eq cdr (cdr original-cons)))	38	(if (and (eq car (car original-cons)) (eq cdr (cdr original-cons)))
38	original-cons	39	original-cons
39	(cons car cdr)))	40	(cons car cdr)))