/[emacs]/emacs/lisp/emacs-lisp/byte-opt.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/byte-opt.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.73.4.3 by miles, Thu Oct 14 08:50:01 2004 UTC revision 1.73.4.4 by miles, Fri Nov 12 07:43:06 2004 UTC
# Line 1  Line 1 
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>
# Line 266  Line 267 
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)
# Line 2037  If FOR-EFFECT is non-nil, the return val Line 2038  If FOR-EFFECT is non-nil, the return val
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

Legend:
Removed from v.1.73.4.3  
changed lines
  Added in v.1.73.4.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26