Mercurial > emacs
changeset 14252:7ef2eabb1a9c
(update-file-autoloads): Only give "up to date" msg if (interactive-p).
(update-autoloads-from-directory): Call expand-file-name on arg.
| author | Roland McGrath <roland@gnu.org> |
|---|---|
| date | Sun, 21 Jan 1996 20:20:46 +0000 |
| parents | 9cacb2dd365c |
| children | 19e39562869b |
| files | lisp/emacs-lisp/autoload.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emacs-lisp/autoload.el Sun Jan 21 04:16:54 1996 +0000 +++ b/lisp/emacs-lisp/autoload.el Sun Jan 21 20:20:46 1996 +0000 @@ -309,7 +309,6 @@ (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 @@ (>= (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 @@ 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