diff options
| author | Lars Ingebrigtsen | 2019-08-02 23:03:47 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-08-02 23:03:47 +0200 |
| commit | 530a4af66cee9e028e767d5be471dfd9d4955f50 (patch) | |
| tree | 426de11c75a522d5456e03d1f5e374f901b2c202 | |
| parent | 6f888d0711f0e1216dd5a6712b737d1fb2c2f102 (diff) | |
| download | emacs-530a4af66cee9e028e767d5be471dfd9d4955f50.tar.gz emacs-530a4af66cee9e028e767d5be471dfd9d4955f50.zip | |
macroexp--cons doc fix
* lisp/emacs-lisp/macroexp.el (macroexp--cons): Doc fix (bug#19371).
| -rw-r--r-- | lisp/emacs-lisp/macroexp.el | 3 |
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 @@ | |||
| 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))) |