mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

(update-file-autoloads): Only give "up to date" msg if (interactive-p).

Browse Source 
(update-autoloads-from-directory): Call expand-file-name on arg.
This commit is contained in:
Roland McGrath 1996-01-21 20:20:46 +00:00
parent 994a65f396
commit d5aa62ec56
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -309,7 +309,6 @@ autoloads go somewhere else.")
(let ((begin (match-beginning 0))
(last-time (nth 4 form))
(file-time (nth 5 (file-attributes file))))
(message "%s: las %s vs %s" file last-time file-time)
(if (and (or (null existing-buffer)
(not (buffer-modified-p existing-buffer)))
(listp last-time) (= (length last-time) 2)
@ -318,8 +317,10 @@ autoloads go somewhere else.")
(>= (nth 1 last-time)
(nth 1 file-time)))))
(progn
(message "Autoload section for %s is up to date."
file)
(if (interactive-p)
(message "\
Autoload section for %s is up to date."
file))
(setq found 'up-to-date))
(search-forward generate-autoload-section-trailer)
(delete-region begin (point))
@ -375,6 +376,7 @@ autoloads go somewhere else.")
Update loaddefs.el with all the current autoloads from DIR, and no old ones.
This uses `update-file-autoloads' (which see) do its work."
(interactive "DUpdate autoloads from directory: ")
(setq dir (expand-file-name dir))
(let ((files (directory-files dir nil "^[^=].*\\.el$")))
(save-excursion
(set-buffer (find-file-noselect