From: Erik Naggum <erik@naggum.no>
Date: Tue, 10 Sep 1996 23:00:29 +0000 (+0000)
Subject: (byte-compile-output-file-form): Bind print-quoted and print-gensym to t
X-Git-Tag: emacs-20.1~3785
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/77308fd7ec3fc4fb05b0d33c92aa8739237999fa

(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 --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index e38a2dc007..13f52717cf 100644
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1465,8 +1465,8 @@ With argument, insert value in current buffer after the form."
     (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 @@ list that represents a doc string reference.
 	       (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))