Mercurial > hg > xemacs-beta

comparison lisp/bytecomp.el @ 4408:8bbabcab2c42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Sun, 20 Jan 2008 13:09:58 +0100
parents e8f448f997ac
children 6f41fb7f3a65
comparison
equal deleted inserted replaced
4407:4ee73bbe4f8e 4408:8bbabcab2c42
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)