mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-01 20:06:00 +00:00
Code Issues Releases Activity

(byte-compile-output-file-form): Bind print-quoted and print-gensym to t

Browse Source 
when writing compiled byte-code objects.
(byte-compile-output-docform): Likewise.
This commit is contained in:
Erik Naggum 1996-09-10 23:00:29 +00:00
parent 5a161ab5ff
commit 77308fd7ec
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/emacs-lisp/bytecomp.el
View File

@ -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))