procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(autoload-ensure-default-file): Provide a feature.

Browse source
This commit is contained in:
Glenn Morris 2008-04-05 18:51:12 +00:00
parent ce28a62838
commit 5ec993427a
1 changed files with 16 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

29
lisp/emacs-lisp/autoload.el
View file

@ -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)