1 |
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler |
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler |
2 |
|
|
3 |
;; Copyright (c) 1991,1994,2000,01,02,2004 Free Software Foundation, Inc. |
;; Copyright (c) 1991, 1994, 2000, 2001, 2002, 2004 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Jamie Zawinski <jwz@lucid.com> |
;; Author: Jamie Zawinski <jwz@lucid.com> |
7 |
;; Hallvard Furuseth <hbf@ulrik.uio.no> |
;; Hallvard Furuseth <hbf@ulrik.uio.no> |
267 |
(cdr (assq name byte-compile-function-environment))))) |
(cdr (assq name byte-compile-function-environment))))) |
268 |
(if (and (consp fn) (eq (car fn) 'autoload)) |
(if (and (consp fn) (eq (car fn) 'autoload)) |
269 |
(error "File `%s' didn't define `%s'" (nth 1 fn) name)) |
(error "File `%s' didn't define `%s'" (nth 1 fn) name)) |
270 |
(if (symbolp fn) |
(if (and (symbolp fn) (not (eq fn t))) |
271 |
(byte-compile-inline-expand (cons fn (cdr form))) |
(byte-compile-inline-expand (cons fn (cdr form))) |
272 |
(if (byte-code-function-p fn) |
(if (byte-code-function-p fn) |
273 |
(let (string) |
(let (string) |
2038 |
byte-optimize-lapcode)))) |
byte-optimize-lapcode)))) |
2039 |
nil) |
nil) |
2040 |
|
|
2041 |
;;; arch-tag: 0f14076b-737e-4bef-aae6-908826ec1ff1 |
;; arch-tag: 0f14076b-737e-4bef-aae6-908826ec1ff1 |
2042 |
;;; byte-opt.el ends here |
;;; byte-opt.el ends here |