Mercurial > emacs

changeset 16159:d4b674c08fe1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(byte-compile-output-file-form): Bind print-quoted and print-gensym to t when writing compiled byte-code objects. (byte-compile-output-docform): Likewise.
author Erik Naggum <erik@naggum.no>
date Tue, 10 Sep 1996 23:00:29 +0000
parents af6ef293cb42
children 9acae440fe98
files lisp/emacs-lisp/bytecomp.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))