Mercurial > emacs
changeset 37909:3d650ae7e609
(byte-compile-file-form-autoload): Use the
same definition in byte-compile-function-environment as `autoload'
would put in `symbol-function'.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 27 May 2001 11:40:30 +0000 |
| parents | ba28e6b7a67b |
| children | 902e099eaf57 |
| files | lisp/emacs-lisp/bytecomp.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/bytecomp.el Sun May 27 11:34:56 2001 +0000 +++ b/lisp/emacs-lisp/bytecomp.el Sun May 27 11:40:30 2001 +0000 @@ -10,7 +10,7 @@ ;;; This version incorporates changes up to version 2.10 of the ;;; Zawinski-Furuseth compiler. -(defconst byte-compile-version "$Revision: 2.81 $") +(defconst byte-compile-version "$Revision: 2.82 $") ;; This file is part of GNU Emacs. @@ -1836,7 +1836,7 @@ (symbolp (nth 1 (nth 1 form)))) (add-to-list 'byte-compile-function-environment (cons (nth 1 (nth 1 form)) - form))) + (cons 'autoload (cdr (cdr form)))))) (if (stringp (nth 3 form)) form ;; No doc string, so we can compile this as a normal form. @@ -3641,10 +3641,10 @@ (assq 'byte-code (symbol-function 'byte-compile-form)) (let ((byte-optimize nil) ; do it fast (byte-compile-warnings nil)) - (mapcar '(lambda (x) - (or noninteractive (message "compiling %s..." x)) - (byte-compile x) - (or noninteractive (message "compiling %s...done" x))) + (mapcar (lambda (x) + (or noninteractive (message "compiling %s..." x)) + (byte-compile x) + (or noninteractive (message "compiling %s...done" x))) '(byte-compile-normal-call byte-compile-form byte-compile-body