import -ko -b 1.1.3 XEmacs XEmacs-21_2 r21-2-35

[chise/xemacs-chise.git.1] / lisp / autoload.el

diff --git a/lisp/autoload.el b/lisp/autoload.el
index b9b0a60..965d550 100644 (file)
--- a/lisp/autoload.el
+++ b/lisp/autoload.el
@@ -87,6 +87,8 @@ the section of autoloads for a file.")
 (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 @@ on the command line."
          (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