Mercurial > hg > xemacs-beta
comparison lisp/bytecomp/bytecomp.el @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:46:35 +0200 |
| parents | 376386a54a3c |
| children | 0293115a14e9 |
comparison
equal
deleted
inserted
replaced
| 1:c0c6a60d29db | 2:ac2d302a0011 |
|---|---|
| 289 ;; XEmacs addition | 289 ;; XEmacs addition |
| 290 (defvar byte-compile-new-bytecodes nil | 290 (defvar byte-compile-new-bytecodes nil |
| 291 "This is completely ignored. It is only around for backwards | 291 "This is completely ignored. It is only around for backwards |
| 292 compatibility.") | 292 compatibility.") |
| 293 | 293 |
| 294 | |
| 294 ;; FSF enables byte-compile-dynamic-docstrings but not byte-compile-dynamic | 295 ;; FSF enables byte-compile-dynamic-docstrings but not byte-compile-dynamic |
| 295 ;; by default. This would be a reasonable conservative approach except | 296 ;; by default. This would be a reasonable conservative approach except |
| 296 ;; for the fact that if you enable either of these, you get incompatible | 297 ;; for the fact that if you enable either of these, you get incompatible |
| 297 ;; byte code that can't be read by XEmacs 19.13 or before or FSF 19.28 or | 298 ;; byte code that can't be read by XEmacs 19.13 or before or FSF 19.28 or |
| 298 ;; before. | 299 ;; before. |
| 340 '(redefine callargs free-vars unresolved unused-vars obsolete) | 341 '(redefine callargs free-vars unresolved unused-vars obsolete) |
| 341 "*The warnings used when byte-compile-warnings is t.") | 342 "*The warnings used when byte-compile-warnings is t.") |
| 342 | 343 |
| 343 (defvar byte-compile-warnings t | 344 (defvar byte-compile-warnings t |
| 344 "*List of warnings that the compiler should issue (t for the default set). | 345 "*List of warnings that the compiler should issue (t for the default set). |
| 345 Elements of the list may be be: | 346 Elements of the list may be: |
| 346 | 347 |
| 347 free-vars references to variables not in the current lexical scope. | 348 free-vars references to variables not in the current lexical scope. |
| 348 unused-vars references to non-global variables bound but not referenced. | 349 unused-vars references to non-global variables bound but not referenced. |
| 349 unresolved calls to unknown functions. | 350 unresolved calls to unknown functions. |
| 350 callargs lambda calls with args that don't match the definition. | 351 callargs lambda calls with args that don't match the definition. |
| 1699 "' was compiled for XEmacs 19.14/Emacs 19.29 or later\"))\n\n" | 1700 "' was compiled for XEmacs 19.14/Emacs 19.29 or later\"))\n\n" |
| 1700 "' was compiled for Emacs 19\"))\n\n")) | 1701 "' was compiled for Emacs 19\"))\n\n")) |
| 1701 (insert "(or (boundp 'current-load-list) (setq current-load-list nil))\n" | 1702 (insert "(or (boundp 'current-load-list) (setq current-load-list nil))\n" |
| 1702 "\n") | 1703 "\n") |
| 1703 ))) | 1704 ))) |
| 1705 | |
| 1704 | 1706 |
| 1705 | 1707 |
| 1706 (defun byte-compile-output-file-form (form) | 1708 (defun byte-compile-output-file-form (form) |
| 1707 ;; writes the given form to the output buffer, being careful of docstrings | 1709 ;; writes the given form to the output buffer, being careful of docstrings |
| 1708 ;; in defun, defmacro, defvar, defconst and autoload because make-docfile is | 1710 ;; in defun, defmacro, defvar, defconst and autoload because make-docfile is |