(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 e38a2dc0071db6fe56e1a23a192fb81b59a0aa3c..13f52717cffcd0be8d6949a94fb6797ece15d46c 100644 (file)
--- 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))