Commit c70815f1 authored by Glenn Morris's avatar Glenn Morris
Browse files

* emacs-lisp/autoload.el (autoload-rubric): Doc fix.

parent 84d0a5f8
2010-03-18 Glenn Morris <rgm@gnu.org> 2010-03-18 Glenn Morris <rgm@gnu.org>
* emacs-lisp/autoload.el (autoload-rubric): Doc fix.
* replace.el (query-replace-history): Give it a doc string. * replace.el (query-replace-history): Give it a doc string.
(map-query-replace-regexp): Use query-replace-from-history-variable (map-query-replace-regexp): Use query-replace-from-history-variable
and query-replace-to-history-variable. and query-replace-to-history-variable.
......
;; autoload.el --- maintain autoloads in loaddefs.el ;; autoload.el --- maintain autoloads in loaddefs.el
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2002, 2003, ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001, 2002, 2003,
;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010
;; Free Software Foundation, Inc.
;; Author: Roland McGrath <roland@gnu.org> ;; Author: Roland McGrath <roland@gnu.org>
;; Keywords: maint ;; Keywords: maint
...@@ -258,14 +259,17 @@ put the output in." ...@@ -258,14 +259,17 @@ put the output in."
TYPE (default \"autoloads\") is a string stating the type of TYPE (default \"autoloads\") is a string stating the type of
information contained in FILE. If FEATURE is non-nil, FILE information contained in FILE. If FEATURE is non-nil, FILE
will provide a feature. FEATURE may be a string naming the will provide a feature. FEATURE may be a string naming the
feature, otherwise it will be based on FILE's name." feature, otherwise it will be based on FILE's name.
At present, a feature is in fact always provided, but this should
not be relied upon."
(let ((basename (file-name-nondirectory file))) (let ((basename (file-name-nondirectory file)))
(concat ";;; " basename (concat ";;; " basename
" --- automatically extracted " (or type "autoloads") "\n" " --- automatically extracted " (or type "autoloads") "\n"
";;\n" ";;\n"
";;; Code:\n\n" ";;; Code:\n\n"
" \n" " \n"
;; This is used outside of autoload.el. ;; This is used outside of autoload.el, eg cus-dep, finder.
"(provide '" "(provide '"
(if (stringp feature) (if (stringp feature)
feature feature
......
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