# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 734817379 0
# Node ID 86d5500624d57ac5b9060a27e142e137dbdabdc6
# Parent  0099d6be2b11f332c6bbf6f764c4966944ea87d5
(update-file-autoloads, update-directory-autoloads): If called
interactively, save generated-autoload-file when done.

diff -r 0099d6be2b11 -r 86d5500624d5 lisp/emacs-lisp/autoload.el
--- a/lisp/emacs-lisp/autoload.el	Wed Apr 14 19:47:05 1993 +0000
+++ b/lisp/emacs-lisp/autoload.el	Wed Apr 14 19:56:19 1993 +0000
@@ -208,7 +208,7 @@
 	  (goto-char output-end)
 	  (insert generate-autoload-section-trailer)))
     (message "Generating autoloads for %s...done" file)))
-
+
 (defconst generated-autoload-file "loaddefs.el"
    "*File \\[update-file-autoloads] puts autoloads into.
 A .el file can set this in its local variables section to make its
@@ -270,6 +270,7 @@
 	    (recursive-edit)
 	    (beginning-of-line))
 	  (generate-file-autoloads file)))
+      (if (interactive-p) (save-buffer))
       (if (and (null existing-buffer)
 	       (setq existing-buffer (get-file-buffer file)))
 	  (kill-buffer existing-buffer)))))
@@ -312,7 +313,11 @@
   "Run \\[update-file-autoloads] on each .el file in DIR."
   (interactive "DUpdate autoloads for directory: ")
   (mapcar 'update-file-autoloads
-	  (directory-files dir nil "\\.el$")))
+	  (directory-files dir nil "\\.el$"))
+  (if (interactive-p)
+      (save-excursion
+	(set-buffer (find-file-noselect generated-autoload-file))
+	(save-buffer))))
 
 ;;;###autoload
 (defun batch-update-autoloads ()