# HG changeset patch
# User Erik Naggum <erik@naggum.no>
# Date 842396429 0
# Node ID d4b674c08fe1495d01bcd02eb0e7ee1ebaa939b8
# Parent  af6ef293cb428098f7032615578de0c903c0626d
(byte-compile-output-file-form): Bind print-quoted and print-gensym to t
when writing compiled byte-code objects.
(byte-compile-output-docform): Likewise.

diff -r af6ef293cb42 -r d4b674c08fe1 lisp/emacs-lisp/bytecomp.el
--- a/lisp/emacs-lisp/bytecomp.el	Tue Sep 10 21:54:46 1996 +0000
+++ b/lisp/emacs-lisp/bytecomp.el	Tue Sep 10 23:00:29 1996 +0000
@@ -1465,8 +1465,8 @@
     (let ((print-escape-newlines t)
 	  (print-length nil)
 	  (print-level nil)
-	  (print-readably t)	; print #[] for bytecode, 'x for (quote x)
-	  (print-gensym nil))	; this is too dangerous for now
+	  (print-quoted t)
+	  (print-gensym t))
       (princ "\n" outbuffer)
       (prin1 form outbuffer)
       nil)))
@@ -1514,8 +1514,8 @@
 	       (prin1 name outbuffer)))
 	 (insert (car info))
 	 (let ((print-escape-newlines t)
-	       (print-readably t)	; print #[] for bytecode, 'x for (quote x)
-	       (print-gensym nil)	; this is too dangerous for now
+	       (print-quoted t)
+	       (print-gensym t)
 	       (index 0))
 	   (prin1 (car form) outbuffer)
 	   (while (setq form (cdr form))