Mercurial > hg > xemacs-beta
comparison lisp/bytecomp.el @ 4395:b03b5e362fcf
Automated merge with file:/Sources/xemacs-21.5-checked-out
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Tue, 15 Jan 2008 21:35:41 +0100 (2008-01-15) |
parents | e8f448f997ac |
children | 6f41fb7f3a65 |
comparison
equal
deleted
inserted
replaced
4394:cacc942c0d0f | 4395:b03b5e362fcf |
---|---|
1886 (print-length nil) | 1886 (print-length nil) |
1887 (print-level nil) | 1887 (print-level nil) |
1888 (print-readably t) ; print #[] for bytecode, 'x for (quote x) | 1888 (print-readably t) ; print #[] for bytecode, 'x for (quote x) |
1889 (print-gensym (if (and byte-compile-print-gensym | 1889 (print-gensym (if (and byte-compile-print-gensym |
1890 (not byte-compile-emacs19-compatibility)) | 1890 (not byte-compile-emacs19-compatibility)) |
1891 '(t) nil))) | 1891 '(t) nil)) |
1892 print-gensym-alist) | |
1892 (princ "\n" byte-compile-outbuffer) | 1893 (princ "\n" byte-compile-outbuffer) |
1893 (prin1 form byte-compile-outbuffer) | 1894 (prin1 form byte-compile-outbuffer) |
1894 nil))) | 1895 nil))) |
1895 | 1896 |
1896 (defun byte-compile-output-docform (preface name info form specindex quoted) | 1897 (defun byte-compile-output-docform (preface name info form specindex quoted) |