Mercurial > emacs
comparison lisp/emacs-lisp/bytecomp.el @ 12552:176c42cc7eeb
(byte-compile-output-file-form): Bind print-length
and print-level to nil.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 17 Jul 1995 22:46:25 +0000 |
parents | 93a7cb2eefcc |
children | 835314018265 |
comparison
equal
deleted
inserted
replaced
12551:572a8ef6b1f4 | 12552:176c42cc7eeb |
---|---|
1424 (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload)) | 1424 (if (and (memq (car-safe form) '(defun defmacro defvar defconst autoload)) |
1425 (stringp (nth 3 form))) | 1425 (stringp (nth 3 form))) |
1426 (byte-compile-output-docform nil nil '("\n(" 3 ")") form nil | 1426 (byte-compile-output-docform nil nil '("\n(" 3 ")") form nil |
1427 (eq (car form) 'autoload)) | 1427 (eq (car form) 'autoload)) |
1428 (let ((print-escape-newlines t) | 1428 (let ((print-escape-newlines t) |
1429 (print-length nil) | |
1430 (print-level nil) | |
1429 (print-readably t) ; print #[] for bytecode, 'x for (quote x) | 1431 (print-readably t) ; print #[] for bytecode, 'x for (quote x) |
1430 (print-gensym nil)) ; this is too dangerous for now | 1432 (print-gensym nil)) ; this is too dangerous for now |
1431 (princ "\n" outbuffer) | 1433 (princ "\n" outbuffer) |
1432 (prin1 form outbuffer) | 1434 (prin1 form outbuffer) |
1433 nil))) | 1435 nil))) |