[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/04/05 18:51:12

Index: autoload.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/autoload.el,v
retrieving revision 1.135
retrieving revision 1.136
diff -u -b -r1.135 -r1.136
--- autoload.el 10 Mar 2008 21:11:31 -0000      1.135
+++ autoload.el 5 Apr 2008 18:51:12 -0000       1.136
@@ -240,19 +240,22 @@
 (defun autoload-ensure-default-file (file)
   "Make sure that the autoload file FILE exists and if not create it."
   (unless (file-exists-p file)
+    (let ((basename (file-name-nondirectory file)))
     (write-region
-     (concat ";;; " (file-name-nondirectory file)
+       (concat ";;; " basename
             " --- automatically extracted autoloads\n"
             ";;\n"
             ";;; Code:\n\n"
-            "\n;; Local Variables:\n"
+              "\n"
+              "(provide '" (file-name-sans-extension basename) ")\n"
+              ";; Local Variables:\n"
             ";; version-control: never\n"
             ";; no-byte-compile: t\n"
             ";; no-update-autoloads: t\n"
             ";; End:\n"
-            ";;; " (file-name-nondirectory file)
+              ";;; " basename
             " ends here\n")
-     nil file))
+       nil file)))
   file)
 
 (defun autoload-insert-section-header (outbuf autoloads load-name file time)