Mercurial > hg > xemacs-beta
comparison lisp/bytecomp.el @ 4392:e8f448f997ac
bytecomp.el: bind print-gensym-alist to nil even with non-defvar, defun, [...] forms.
2008-01-14 Aidan Kehoe <kehoea@parhasard.net>
* bytecomp.el (byte-compile-output-file-form):
Bind print-gensym-alist to nil, as we do within
byte-compile-output-docform.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Mon, 14 Jan 2008 15:25:22 +0100 |
| parents | 4ac3a83867c6 |
| children | 6f41fb7f3a65 |
comparison
equal
deleted
inserted
replaced
| 4391:cbf129b005df | 4392:e8f448f997ac |
|---|---|
| 1886 (print-length nil) | 1886 (print-length nil) |
| 1887 (print-level nil) | 1887 (print-level nil) |
| 1888 (print-readably t) ; print #[] for bytecode, 'x for (quote x) | 1888 (print-readably t) ; print #[] for bytecode, 'x for (quote x) |
| 1889 (print-gensym (if (and byte-compile-print-gensym | 1889 (print-gensym (if (and byte-compile-print-gensym |
| 1890 (not byte-compile-emacs19-compatibility)) | 1890 (not byte-compile-emacs19-compatibility)) |
| 1891 '(t) nil))) | 1891 '(t) nil)) |
| 1892 print-gensym-alist) | |
| 1892 (princ "\n" byte-compile-outbuffer) | 1893 (princ "\n" byte-compile-outbuffer) |
| 1893 (prin1 form byte-compile-outbuffer) | 1894 (prin1 form byte-compile-outbuffer) |
| 1894 nil))) | 1895 nil))) |
| 1895 | 1896 |
| 1896 (defun byte-compile-output-docform (preface name info form specindex quoted) | 1897 (defun byte-compile-output-docform (preface name info form specindex quoted) |