diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-05-27 11:40:39 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-05-27 11:40:39 +0000 |
| commit | d686d354c1a0ca892183a017a467b8ae6280b33b (patch) | |
| tree | 2b30509094213fdbdbc5bf8e1f07fe0acf89607e /lisp/emacs-lisp | |
| parent | 0abfa90d846e6545b7ea72d5eb9282ebd9bd45d1 (diff) | |
| download | emacs-d686d354c1a0ca892183a017a467b8ae6280b33b.tar.gz emacs-d686d354c1a0ca892183a017a467b8ae6280b33b.tar.bz2 emacs-d686d354c1a0ca892183a017a467b8ae6280b33b.zip | |
(byte-compile-file-form-autoload): Use the
same definition in byte-compile-function-environment as `autoload'
would put in `symbol-function'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index 6ade734984d..4c6881e0b0a 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el @@ -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 @@ list that represents a doc string reference. (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 @@ For example, invoke `emacs -batch -f batch-byte-recompile-directory .'." (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 |