From 530a4af66cee9e028e767d5be471dfd9d4955f50 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Fri, 2 Aug 2019 23:03:47 +0200 Subject: [PATCH] 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 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))) -- 2.39.2