[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/autoload.el

[Richard M. Stallman]

Index: emacs/lisp/emacs-lisp/autoload.el
diff -c emacs/lisp/emacs-lisp/autoload.el:1.95 
emacs/lisp/emacs-lisp/autoload.el:1.96
*** emacs/lisp/emacs-lisp/autoload.el:1.95      Tue Feb  4 07:53:34 2003
--- emacs/lisp/emacs-lisp/autoload.el   Sun May  4 09:08:49 2003
***************
*** 1,4 ****
! ;;; autoload.el --- maintain autoloads in loaddefs.el
  
  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001
  ;;   Free Software Foundation, Inc.
--- 1,4 ----
! ;; autoload.el --- maintain autoloads in loaddefs.el
  
  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 2001
  ;;   Free Software Foundation, Inc.
***************
*** 475,484 ****
    (delete-region begin (point)))
  
  ;;;###autoload
! (defun update-autoloads-from-directories (&rest dirs)
    "\
  Update loaddefs.el with all the current autoloads from DIRS, and no old ones.
! This uses `update-file-autoloads' (which see) do its work."
    (interactive "DUpdate autoloads from directory: ")
    (let* ((files-re (let ((tmp nil))
                     (dolist (suf load-suffixes
--- 475,490 ----
    (delete-region begin (point)))
  
  ;;;###autoload
! (defun update-directory-autoloads (&rest dirs)
    "\
  Update loaddefs.el with all the current autoloads from DIRS, and no old ones.
! This uses `update-file-autoloads' (which see) do its work.
! In an interactive call, you must give one argument, the name
! of a single directory.  In a call from Lisp, you can supply multiple
! directories as separate arguments, but this usage is discouraged.
! 
! The function does NOT recursively descend into subdirectories of the
! directory or directories specified."
    (interactive "DUpdate autoloads from directory: ")
    (let* ((files-re (let ((tmp nil))
                     (dolist (suf load-suffixes