Mercurial > emacs
changeset 19170:ecc4375537e3
(update-autoloads-from-directories):
Don't process file names that start with `.'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 05 Aug 1997 17:16:00 +0000 |
| parents | 0ffc25f09344 |
| children | 2746f25df333 |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 27 insertions(+), 27 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Tue Aug 05 17:10:16 1997 +0000 +++ b/lisp/emacs-lisp/autoload.el Tue Aug 05 17:16:00 1997 +0000 @@ -31,6 +31,32 @@ ;;; Code: +(defvar generated-autoload-file "loaddefs.el" + "*File \\[update-file-autoloads] puts autoloads into. +A `.el' file can set this in its local variables section to make its +autoloads go somewhere else.") + +(defconst generate-autoload-cookie ";;;###autoload" + "Magic comment indicating the following form should be autoloaded. +Used by \\[update-file-autoloads]. This string should be +meaningless to Lisp (e.g., a comment). + +This string is used: + +;;;###autoload +\(defun function-to-be-autoloaded () ...) + +If this string appears alone on a line, the following form will be +read and an autoload made for it. If there is further text on the line, +that text will be copied verbatim to `generated-autoload-file'.") + +(defconst generate-autoload-section-header "\f\n;;;### " + "String inserted before the form identifying +the section of autoloads for a file.") + +(defconst generate-autoload-section-trailer "\n;;;***\n" + "String which indicates the end of the section of autoloads for a file.") + (defun make-autoload (form file) "Turn FORM into an autoload or defvar for source file FILE. Returns nil if FORM is not a defun, define-skeleton, defmacro or defcustom." @@ -71,27 +97,6 @@ (put 'define-skeleton 'doc-string-elt 3) -(defconst generate-autoload-cookie ";;;###autoload" - "Magic comment indicating the following form should be autoloaded. -Used by \\[update-file-autoloads]. This string should be -meaningless to Lisp (e.g., a comment). - -This string is used: - -;;;###autoload -\(defun function-to-be-autoloaded () ...) - -If this string appears alone on a line, the following form will be -read and an autoload made for it. If there is further text on the line, -that text will be copied verbatim to `generated-autoload-file'.") - -(defconst generate-autoload-section-header "\f\n;;;### " - "String inserted before the form identifying -the section of autoloads for a file.") - -(defconst generate-autoload-section-trailer "\n;;;***\n" - "String which indicates the end of the section of autoloads for a file.") - ;;; Forms which have doc-strings which should be printed specially. ;;; A doc-string-elt property of ELT says that (nth ELT FORM) is ;;; the doc-string in FORM. @@ -287,11 +292,6 @@ (insert generate-autoload-section-trailer))) (message "Generating autoloads for %s...done" file))) -(defvar generated-autoload-file "loaddefs.el" - "*File \\[update-file-autoloads] puts autoloads into. -A `.el' file can set this in its local variables section to make its -autoloads go somewhere else.") - ;;;###autoload (defun update-file-autoloads (file) "Update the autoloads for FILE in `generated-autoload-file' @@ -398,7 +398,7 @@ (mapcar (function (lambda (dir) (directory-files (expand-file-name dir) t - "^[^=].*\\.el$"))) + "^[^=.].*\\.el$"))) dirs))) autoloads-file top-dir)