From d5aa62ec563dc0cf63bed02433c7c8f6d375b97a Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Sun, 21 Jan 1996 20:20:46 +0000 Subject: [PATCH] (update-file-autoloads): Only give "up to date" msg if (interactive-p). (update-autoloads-from-directory): Call expand-file-name on arg. --- lisp/emacs-lisp/autoload.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.39.2