[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.101 
emacs/lisp/emacs-lisp/autoload.el:1.102
*** emacs/lisp/emacs-lisp/autoload.el:1.101     Wed Sep  8 11:06:23 2004
--- emacs/lisp/emacs-lisp/autoload.el   Tue Nov  2 09:20:13 2004
***************
*** 360,370 ****
      (message "Generating autoloads for %s...done" file)))
  
  ;;;###autoload
! (defun update-file-autoloads (file)
    "Update the autoloads for FILE in `generated-autoload-file'
  \(which FILE might bind in its local variables).
! Return FILE if there was no autoload cookie in it."
!   (interactive "fUpdate autoloads for file: ")
    (let ((load-name (let ((name (file-name-nondirectory file)))
                     (if (string-match "\\.elc?\\(\\.\\|$\\)" name)
                         (substring name 0 (match-beginning 0))
--- 360,373 ----
      (message "Generating autoloads for %s...done" file)))
  
  ;;;###autoload
! (defun update-file-autoloads (file &optional save-after)
    "Update the autoloads for FILE in `generated-autoload-file'
  \(which FILE might bind in its local variables).
! If SAVE-AFTER is non-nil (which is always, when called interactively),
! save the buffer too.
! 
! Return FILE if there was no autoload cookie in it, else nil."
!   (interactive "fUpdate autoloads for file: \np")
    (let ((load-name (let ((name (file-name-nondirectory file)))
                     (if (string-match "\\.elc?\\(\\.\\|$\\)" name)
                         (substring name 0 (match-beginning 0))
***************
*** 464,470 ****
                           (or existing-buffer
                               (kill-buffer (current-buffer))))))))
              (generate-file-autoloads file))))
!       (and (interactive-p)
           (buffer-modified-p)
           (save-buffer))
  
--- 467,473 ----
                           (or existing-buffer
                               (kill-buffer (current-buffer))))))))
              (generate-file-autoloads file))))
!       (and save-after
           (buffer-modified-p)
           (save-buffer))