[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el,v |
Date: |
Sat, 05 Apr 2008 18:51:12 +0000 |
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)
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el,v,
Glenn Morris <=