# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 822255646 0
# Node ID 7ef2eabb1a9c85a4a84332658f5250cbaac69d97
# Parent  9cacb2dd365cb407827dbebc65a0715f6826596d
(update-file-autoloads): Only give "up to date" msg if (interactive-p).
(update-autoloads-from-directory): Call expand-file-name on arg.

diff -r 9cacb2dd365c -r 7ef2eabb1a9c lisp/emacs-lisp/autoload.el
--- 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