Mercurial > hg > xemacs-beta
diff 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 |
line wrap: on
line diff
--- a/lisp/bytecomp.el Sat Jan 12 18:04:13 2008 +0100 +++ b/lisp/bytecomp.el Mon Jan 14 15:25:22 2008 +0100 @@ -1888,7 +1888,8 @@ (print-readably t) ; print #[] for bytecode, 'x for (quote x) (print-gensym (if (and byte-compile-print-gensym (not byte-compile-emacs19-compatibility)) - '(t) nil))) + '(t) nil)) + print-gensym-alist) (princ "\n" byte-compile-outbuffer) (prin1 form byte-compile-outbuffer) nil)))