Mercurial > hg > xemacs-beta
comparison lisp/bytecomp/byte-optimize.el @ 86:364816949b59 r20-0b93
Import from CVS: tag r20-0b93
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:09:02 +0200 |
| parents | 131b0175ea99 |
| children | 8619ce7e4c50 |
comparison
equal
deleted
inserted
replaced
| 85:c661705957e0 | 86:364816949b59 |
|---|---|
| 271 (progn | 271 (progn |
| 272 (byte-compile-warn "attempt to inline %s before it was defined" name) | 272 (byte-compile-warn "attempt to inline %s before it was defined" name) |
| 273 form) | 273 form) |
| 274 ;; else | 274 ;; else |
| 275 (if (and (consp fn) (eq (car fn) 'autoload)) | 275 (if (and (consp fn) (eq (car fn) 'autoload)) |
| 276 (load (nth 1 fn))) | 276 (progn |
| 277 (load (nth 1 fn)) | |
| 278 (setq fn (or (cdr (assq name byte-compile-function-environment)) | |
| 279 (and (fboundp name) (symbol-function name)))))) | |
| 277 (if (and (consp fn) (eq (car fn) 'autoload)) | 280 (if (and (consp fn) (eq (car fn) 'autoload)) |
| 278 (error "file \"%s\" didn't define \"%s\"" (nth 1 fn) name)) | 281 (error "file \"%s\" didn't define \"%s\"" (nth 1 fn) name)) |
| 279 (if (symbolp fn) | 282 (if (symbolp fn) |
| 280 (byte-compile-inline-expand (cons fn (cdr form))) | 283 (byte-compile-inline-expand (cons fn (cdr form))) |
| 281 (if (compiled-function-p fn) | 284 (if (compiled-function-p fn) |