Mercurial > hg > xemacs-beta
changeset 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 | cbf129b005df |
| children | f6c39b2d8b62 |
| files | lisp/ChangeLog lisp/bytecomp.el |
| diffstat | 2 files changed, 8 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Jan 12 18:04:13 2008 +0100 +++ b/lisp/ChangeLog Mon Jan 14 15:25:22 2008 +0100 @@ -1,3 +1,9 @@ +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. + 2008-01-04 Michael Sperber <mike@xemacs.org> * code-files.el (insert-file-contents):
--- 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)))