mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-24 19:03:29 +00:00
Code Issues Releases Activity

(update-file-autoloads): Don't use interactive-p; take new arg SAVE-AFTER.

Browse Source
This commit is contained in:
Richard M. Stallman 2004-11-02 09:20:13 +00:00
parent ae03e7cf52
commit f7ed02acc7
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/autoload.el
View File

@ -360,11 +360,14 @@ are used."
(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 @@ Autoload section for %s is up to date."
(or existing-buffer
(kill-buffer (current-buffer))))))))
(generate-file-autoloads file))))
(and (interactive-p)
(and save-after
(buffer-modified-p)
(save-buffer))