1 |
;;; autoload.el --- maintain autoloads in loaddefs.el |
;; autoload.el --- maintain autoloads in loaddefs.el |
2 |
|
|
3 |
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 |
;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 |
4 |
;; Free Software Foundation, Inc. |
;; Free Software Foundation, Inc. |
475 |
(delete-region begin (point))) |
(delete-region begin (point))) |
476 |
|
|
477 |
;;;###autoload |
;;;###autoload |
478 |
(defun update-autoloads-from-directories (&rest dirs) |
(defun update-directory-autoloads (&rest dirs) |
479 |
"\ |
"\ |
480 |
Update loaddefs.el with all the current autoloads from DIRS, and no old ones. |
Update loaddefs.el with all the current autoloads from DIRS, and no old ones. |
481 |
This uses `update-file-autoloads' (which see) do its work." |
This uses `update-file-autoloads' (which see) do its work. |
482 |
|
In an interactive call, you must give one argument, the name |
483 |
|
of a single directory. In a call from Lisp, you can supply multiple |
484 |
|
directories as separate arguments, but this usage is discouraged. |
485 |
|
|
486 |
|
The function does NOT recursively descend into subdirectories of the |
487 |
|
directory or directories specified." |
488 |
(interactive "DUpdate autoloads from directory: ") |
(interactive "DUpdate autoloads from directory: ") |
489 |
(let* ((files-re (let ((tmp nil)) |
(let* ((files-re (let ((tmp nil)) |
490 |
(dolist (suf load-suffixes |
(dolist (suf load-suffixes |