procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

macroexp--cons doc fix

Browse source 
* lisp/emacs-lisp/macroexp.el (macroexp--cons): Doc fix (bug#19371).
This commit is contained in:
Lars Ingebrigtsen 2019-08-02 23:03:47 +02:00
parent 6f888d0711
commit 530a4af66c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/macroexp.el
View file

@ -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)))