diff options
| author | Erik Naggum <erik@naggum.no> | 1996-09-10 23:00:29 +0000 |
|---|---|---|
| committer | Erik Naggum <erik@naggum.no> | 1996-09-10 23:00:29 +0000 |
| commit | 77308fd7ec3fc4fb05b0d33c92aa8739237999fa (patch) | |
| tree | dc0070b6c007540a4b729049d56b9551313bfacd /lisp/emacs-lisp/bytecomp.el | |
| parent | 5a161ab5ff3da83d3271d37c97b3a52e89d4e14b (diff) | |
| download | emacs-77308fd7ec3fc4fb05b0d33c92aa8739237999fa.tar.gz emacs-77308fd7ec3fc4fb05b0d33c92aa8739237999fa.tar.bz2 emacs-77308fd7ec3fc4fb05b0d33c92aa8739237999fa.zip | |
(byte-compile-output-file-form): Bind print-quoted and print-gensym to t
when writing compiled byte-code objects.
(byte-compile-output-docform): Likewise.
Diffstat (limited to 'lisp/emacs-lisp/bytecomp.el')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index e38a2dc0071..13f52717cff 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)) |