From: Roland McGrath <roland@gnu.org>
Date: Sun, 21 Jan 1996 20:20:46 +0000 (+0000)
Subject: (update-file-autoloads): Only give "up to date" msg if (interactive-p).
X-Git-Tag: emacs-19.34~1608
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d5aa62ec563dc0cf63bed02433c7c8f6d375b97a;p=emacs.git

(update-file-autoloads): Only give "up to date" msg if (interactive-p).
(update-autoloads-from-directory): Call expand-file-name on arg.
---

diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 439f13cd515..4490cb7533d 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -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