From 5ec993427a38630a5a23a4b09345a6a5009cf037 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 5 Apr 2008 18:51:12 +0000 Subject: [PATCH] (autoload-ensure-default-file): Provide a feature. --- lisp/emacs-lisp/autoload.el | 29 ++++++++++++++++------------- 1 file changed, 16 insertions(+), 13 deletions(-) diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index dadb6aa0ea8..e6bca3b15dd 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -240,19 +240,22 @@ put the output in." (defun autoload-ensure-default-file (file) "Make sure that the autoload file FILE exists and if not create it." (unless (file-exists-p file) - (write-region - (concat ";;; " (file-name-nondirectory file) - " --- automatically extracted autoloads\n" - ";;\n" - ";;; Code:\n\n" - " \n;; Local Variables:\n" - ";; version-control: never\n" - ";; no-byte-compile: t\n" - ";; no-update-autoloads: t\n" - ";; End:\n" - ";;; " (file-name-nondirectory file) - " ends here\n") - nil file)) + (let ((basename (file-name-nondirectory file))) + (write-region + (concat ";;; " basename + " --- automatically extracted autoloads\n" + ";;\n" + ";;; Code:\n\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" + ";;; " basename + " ends here\n") + nil file))) file) (defun autoload-insert-section-header (outbuf autoloads load-name file time) -- 2.11.4.GIT