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

(autoload-rubric): Add optional feature arg.

Browse source
This commit is contained in:
Glenn Morris 2009-11-05 03:22:55 +00:00
parent 4f8f657fc4
commit 4ad6a5e761
2 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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