procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(byte-compile-inline-expand): Understand the

Browse source 
new byte-compile-function-environment binding to t.
This commit is contained in:
Stefan Monnier 2004-11-12 03:59:26 +00:00
parent e22c7647c7
commit f61b7b7fb1
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/byte-opt.el
View file

@ -1,6 +1,7 @@
;;; byte-opt.el --- the optimization passes of the emacs-lisp byte compiler
;; Copyright (c) 1991,1994,2000,01,02,2004 Free Software Foundation, Inc.
;; Copyright (c) 1991, 1994, 2000, 2001, 2002, 2004
;; Free Software Foundation, Inc.
;; Author: Jamie Zawinski <jwz@lucid.com>
;; Hallvard Furuseth <hbf@ulrik.uio.no>
@ -266,7 +267,7 @@
(cdr (assq name byte-compile-function-environment)))))
(if (and (consp fn) (eq (car fn) 'autoload))
(error "File `%s' didn't define `%s'" (nth 1 fn) name))
(if (symbolp fn)
(if (and (symbolp fn) (not (eq fn t)))
(byte-compile-inline-expand (cons fn (cdr form)))
(if (byte-code-function-p fn)
(let (string)
@ -2032,5 +2033,5 @@ If FOR-EFFECT is non-nil, the return value is assumed to be of no importance."
byte-optimize-lapcode))))
nil)
;;; arch-tag: 0f14076b-737e-4bef-aae6-908826ec1ff1
;; arch-tag: 0f14076b-737e-4bef-aae6-908826ec1ff1
;;; byte-opt.el ends here