Mercurial > hg > xemacs-beta
changeset 4298:27150c937a22
[xemacs-hg @ 2007-12-01 13:40:06 by aidan]
Keep around gensym correspondence information through the entirety of a file
to be byte compiled.
| author | aidan |
|---|---|
| date | Sat, 01 Dec 2007 13:40:07 +0000 |
| parents | 958a8f437147 |
| children | f4c3ffe60a4f |
| files | lisp/ChangeLog lisp/bytecomp.el |
| diffstat | 2 files changed, 10 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Nov 30 22:51:05 2007 +0000 +++ b/lisp/ChangeLog Sat Dec 01 13:40:07 2007 +0000 @@ -1,3 +1,12 @@ +2007-12-01 Aidan Kehoe <kehoea@parhasard.net> + + * bytecomp.el (byte-compile-output-file-form): + Bind print-gensym to a cons, to tell the Lisp printer not to clear + print-gensym-alist on exit from #'print. This is appropriate + because #'byte-compile-output-file-form may be called multiple + times for a given output file, and re-using the + #1=#:... placeholders in that context is inappropriate. + 2007-11-29 Aidan Kehoe <kehoea@parhasard.net> * mule/mule-coding.el (make-8-bit-generate-helper):
--- a/lisp/bytecomp.el Fri Nov 30 22:51:05 2007 +0000 +++ b/lisp/bytecomp.el Sat Dec 01 13:40:07 2007 +0000 @@ -1888,7 +1888,7 @@ (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))) (princ "\n" byte-compile-outbuffer) (prin1 form byte-compile-outbuffer) nil)))