diff options
| author | Richard M. Stallman | 2003-05-04 13:08:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-05-04 13:08:58 +0000 |
| commit | 56eebc2963f5f714860e0beb28bf8bf4a9a9a5e9 (patch) | |
| tree | b5424fd23eff5a050758830f674a759c40e99f44 | |
| parent | 318ab85c81884690af4f13424e433a12157c1d93 (diff) | |
| download | emacs-56eebc2963f5f714860e0beb28bf8bf4a9a9a5e9.tar.gz emacs-56eebc2963f5f714860e0beb28bf8bf4a9a9a5e9.zip | |
(update-directory-autoloads): Renamed from
update-autoloads-from-directories.
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 12 |
2 files changed, 12 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 04c9f3596d7..fef67eea92c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -7,6 +7,9 @@ | |||
| 7 | 7 | ||
| 8 | 2003-05-03 Richard M. Stallman <rms@gnu.org> | 8 | 2003-05-03 Richard M. Stallman <rms@gnu.org> |
| 9 | 9 | ||
| 10 | * emacs-lisp/autoload.el (update-directory-autoloads): Renamed from | ||
| 11 | update-autoloads-from-directories. | ||
| 12 | |||
| 10 | * progmodes/cperl-mode.el (cperl-nonoverridable-face): Doc fix. | 13 | * progmodes/cperl-mode.el (cperl-nonoverridable-face): Doc fix. |
| 11 | 14 | ||
| 12 | * mail/sendmail.el (mail-dont-send, mail-bury): Make ARG optional. | 15 | * mail/sendmail.el (mail-dont-send, mail-bury): Make ARG optional. |
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index 21af0d866ea..4b3a5b2dbfe 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; autoload.el --- maintain autoloads in loaddefs.el | 1 | ;; autoload.el --- maintain autoloads in loaddefs.el |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 | 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| @@ -475,10 +475,16 @@ Autoload section for %s is up to date." | |||
| 475 | (delete-region begin (point))) | 475 | (delete-region begin (point))) |
| 476 | 476 | ||
| 477 | ;;;###autoload | 477 | ;;;###autoload |
| 478 | (defun update-autoloads-from-directories (&rest dirs) | 478 | (defun update-directory-autoloads (&rest dirs) |
| 479 | "\ | 479 | "\ |
| 480 | Update loaddefs.el with all the current autoloads from DIRS, and no old ones. | 480 | 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." | 481 | 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." | ||
| 482 | (interactive "DUpdate autoloads from directory: ") | 488 | (interactive "DUpdate autoloads from directory: ") |
| 483 | (let* ((files-re (let ((tmp nil)) | 489 | (let* ((files-re (let ((tmp nil)) |
| 484 | (dolist (suf load-suffixes | 490 | (dolist (suf load-suffixes |