Mercurial > hg > xemacs-beta
comparison lisp/bytecomp/byte-optimize.el @ 22:8fc7fe29b841 r19-15b94
Import from CVS: tag r19-15b94
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:50:29 +0200 |
| parents | 0293115a14e9 |
| children | 56c54cf7c5b6 |
comparison
equal
deleted
inserted
replaced
| 21:b88636d63495 | 22:8fc7fe29b841 |
|---|---|
| 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) |