Commit 530a4af6 authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen
Browse files

macroexp--cons doc fix

* lisp/emacs-lisp/macroexp.el (macroexp--cons): Doc fix (bug#19371).
parent 6f888d07
...@@ -33,7 +33,8 @@ ...@@ -33,7 +33,8 @@
(defvar macroexpand-all-environment nil) (defvar macroexpand-all-environment nil)
(defun macroexp--cons (car cdr original-cons) (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))) (if (and (eq car (car original-cons)) (eq cdr (cdr original-cons)))
original-cons original-cons
(cons car cdr))) (cons car cdr)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment