Mercurial > hg > xemacs-beta
comparison lisp/bytecomp/bytecomp.el @ 153:25f70ba0133c r20-3b3
Import from CVS: tag r20-3b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:38:25 +0200 |
| parents | 538048ae2ab8 |
| children | 6b37e6ddd302 |
comparison
equal
deleted
inserted
replaced
| 152:4c132ee2d62b | 153:25f70ba0133c |
|---|---|
| 2244 (prin1-to-string form))) | 2244 (prin1-to-string form))) |
| 2245 (byte-compile-normal-call | 2245 (byte-compile-normal-call |
| 2246 (list 'signal ''error | 2246 (list 'signal ''error |
| 2247 (list 'quote (list "`domain' used inside a function" form))))) | 2247 (list 'quote (list "`domain' used inside a function" form))))) |
| 2248 | 2248 |
| 2249 ;; This is part of bytecomp.el in 19.35: | |
| 2250 (put 'custom-declare-variable 'byte-hunk-handler | |
| 2251 'byte-compile-file-form-custom-declare-variable) | |
| 2252 (defun byte-compile-file-form-custom-declare-variable (form) | |
| 2253 (if (memq 'free-vars byte-compile-warnings) | |
| 2254 (setq byte-compile-bound-variables | |
| 2255 (cons (cons (nth 1 (nth 1 form)) | |
| 2256 byte-compile-global-bit) | |
| 2257 byte-compile-bound-variables))) | |
| 2258 form) | |
| 2259 | |
| 2249 | 2260 |
| 2250 ;;;###autoload | 2261 ;;;###autoload |
| 2251 (defun byte-compile (form) | 2262 (defun byte-compile (form) |
| 2252 "If FORM is a symbol, byte-compile its function definition. | 2263 "If FORM is a symbol, byte-compile its function definition. |
| 2253 If FORM is a lambda or a macro, byte-compile it as a function." | 2264 If FORM is a lambda or a macro, byte-compile it as a function." |