changeset: 4392:e8f448f997ac016c496451fbb54fff6e4b6e4f9d tag: tip user: Aidan Kehoe <kehoea(a)parhasard.net&gt; date: Mon Jan 14 15:25:22 2008 +0100 files: lisp/ChangeLog lisp/bytecomp.el description: bytecomp.el: bind print-gensym-alist to nil even with non-defvar, defun, [...] forms. 2008-01-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; * bytecomp.el (byte-compile-output-file-form): Bind print-gensym-alist to nil, as we do within byte-compile-output-docform. diff -r cbf129b005dff4258c4651fefb80e646940d82f7 -r e8f448f997ac016c496451fbb54fff6e4b6e4f9d lisp/ChangeLog --- 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-04 Michael Sperber <mike＠xemac +2008-01-14 Aidan Kehoe <kehoea(a)parhasard.net&gt; + + * 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(a)xemacs.org&gt; * code-files.el (insert-file-contents): diff -r cbf129b005dff4258c4651fefb80e646940d82f7 -r e8f448f997ac016c496451fbb54fff6e4b6e4f9d lisp/bytecomp.el --- 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 ＠＠ With argument, insert value in current b (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))) _______________________________________________ XEmacs-Patches mailing list XEmacs-Patches(a)xemacs.org http://calypso.tux.org/cgi-bin/mailman/listinfo/xemacs-patches