Commit d5aa62ec authored by Roland McGrath's avatar Roland McGrath
Browse files

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

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