--- a/lisp/autoload.el	Mon Aug 13 11:18:12 2007 +0200
+++ b/lisp/autoload.el	Mon Aug 13 11:19:21 2007 +0200
@@ -87,6 +87,8 @@
 (defvar generate-autoload-section-trailer "\n;;;***\n"
   "String which indicates the end of the section of autoloads for a file.")
 
+(defvar autoload-package-name nil)
+
 ;;; Forms which have doc-strings which should be printed specially.
 ;;; A doc-string-elt property of ELT says that (nth ELT FORM) is
 ;;; the doc-string in FORM.
@@ -540,8 +542,6 @@
 	  (goto-char (point-max))
 	  (insert "\n(provide '" sym ")\n")))))
 
-(defvar autoload-package-name nil)
-
 ;; #### this function is almost identical, but subtly different,
 ;; from batch-update-autoloads.  Steve, it's your responsibility to
 ;; clean this up.  The two should be merged, but I'm not sure what