Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 4298:27150c937a22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2007-12-01 13:40:06 by aidan] Keep around gensym correspondence information through the entirety of a file to be byte compiled.
author aidan
date Sat, 01 Dec 2007 13:40:07 +0000
parents 20accccbebd6
children 4ac3a83867c6
comparison
equal deleted inserted replaced
4297:958a8f437147 4298:27150c937a22
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 (princ "\n" byte-compile-outbuffer) 1892 (princ "\n" byte-compile-outbuffer)
1893 (prin1 form byte-compile-outbuffer) 1893 (prin1 form byte-compile-outbuffer)
1894 nil))) 1894 nil)))
1895 1895
1896 (defun byte-compile-output-docform (preface name info form specindex quoted) 1896 (defun byte-compile-output-docform (preface name info form specindex quoted)