Mercurial > emacs
changeset 2535:86d5500624d5
(update-file-autoloads, update-directory-autoloads): If called
interactively, save generated-autoload-file when done.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Wed, 14 Apr 1993 19:56:19 +0000 |
| parents | 0099d6be2b11 |
| children | e8426c217792 |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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 ()