# HG changeset patch
# User Aidan Kehoe <kehoea@parhasard.net>
# Date 1200320722 -3600
# Node ID e8f448f997ac016c496451fbb54fff6e4b6e4f9d
# Parent  cbf129b005dff4258c4651fefb80e646940d82f7
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.

diff -r cbf129b005df -r e8f448f997ac 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-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):
diff -r cbf129b005df -r e8f448f997ac 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 @@
 	  (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)))