# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1099387213 0
# Node ID 52307ec50b54bacddd6a5f3c9dd0aa311255710e
# Parent  7b2c608f3b0b897fbe10409d699aadd629e902af
(update-file-autoloads): Don't use interactive-p; take new arg SAVE-AFTER.

diff -r 7b2c608f3b0b -r 52307ec50b54 lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Tue Nov 02 09:17:50 2004 +0000
+++ b/lisp/emacs-lisp/autoload.el	Tue Nov 02 09:20:13 2004 +0000
@@ -360,11 +360,14 @@
     (message "Generating autoloads for %s...done" file)))
 
 ;;;###autoload
-(defun update-file-autoloads (file)
+(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).
-Return FILE if there was no autoload cookie in it."
-  (interactive "fUpdate autoloads for file: ")
+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,7 +467,7 @@
 			   (or existing-buffer
 			       (kill-buffer (current-buffer))))))))
 	      (generate-file-autoloads file))))
-      (and (interactive-p)
+      (and save-after
 	   (buffer-modified-p)
 	   (save-buffer))