Commit 4ad6a5e7 authored by Glenn Morris's avatar Glenn Morris
Browse files

(autoload-rubric): Add optional feature arg.

parent 4f8f657f
2009-11-05 Glenn Morris <rgm@gnu.org>
* emacs-lisp/autoload.el (autoload-rubric): Add optional feature arg.
* calendar/diary-lib.el (top-level): Make load behave more like require.
2009-11-04 Dan Nicolaescu <dann@ics.uci.edu>
......
......@@ -253,16 +253,25 @@ put the output in."
(print-escape-nonascii t))
(print form outbuf)))))))
(defun autoload-rubric (file &optional type)
(defun autoload-rubric (file &optional type feature)
"Return a string giving the appropriate autoload rubric for FILE.
TYPE (default \"autoloads\") is a string stating the type of
information contained in FILE."
information contained in FILE. If FEATURE is non-nil, FILE
will provide a feature. FEATURE may be a string naming the
feature, otherwise it will be based on FILE's name."
(let ((basename (file-name-nondirectory file)))
(concat ";;; " basename
" --- automatically extracted " (or type "autoloads") "\n"
";;\n"
";;; Code:\n\n"
" \n"
;; This is used outside of autoload.el.
(if feature
(concat "(provide '"
(if (stringp feature) feature
(file-name-sans-extension basename))
")\n")
"")
";; Local Variables:\n"
";; version-control: never\n"
";; no-byte-compile: t\n"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment