From 8b47179b4d8ba341b5a11eb9245b0b3a2fa0ecae Mon Sep 17 00:00:00 2001 From: Donald Curtis Date: Sat, 21 Apr 2012 15:00:17 -0500 Subject: [PATCH] default to `message' for everything except full-build information. --- package-build.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/package-build.el b/package-build.el index 0edbc833..f14ccecb 100644 --- a/package-build.el +++ b/package-build.el @@ -73,7 +73,7 @@ (defun pb/parse-time (str) "Parse STR as a time, and format as a YYYYMMDD string." - (princ (format "%s\n" (substring-no-properties str))) + (message (format "%s\n" (substring-no-properties str))) (format-time-string "%Y%m%d" (date-to-time @@ -120,9 +120,9 @@ In turn, this function uses the :fetcher option in the config to choose a source-specific fetcher function, which it calls with the same arguments." (let ((repo-type (plist-get config :fetcher))) - (princ (format "%s " repo-type)) + (message (format "%s " repo-type)) (unless (eq 'wiki repo-type) - (princ (format "%s\n" + (message (format "%s\n" (or (plist-get config :repo) (plist-get config :url))))) (funcall (intern (format "pb/checkout-%s" repo-type)) name config cwd))) @@ -161,7 +161,7 @@ rate limiting." (url-copy-file download-url filename t)) (with-current-buffer (pb/with-wiki-rate-limit (url-retrieve-synchronously wiki-url)) - (princ (format "%s\n" download-url)) + (message (format "%s\n" download-url)) (pb/find-parse-time "Last edited \\([0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\} [0-9]\\{2\\}:[0-9]\\{2\\} [A-Z]\\{3\\}\\)")))) @@ -493,7 +493,7 @@ of the same-named package which is to be kept." (file-name-as-directory (expand-file-name file-name package-build-working-dir)))) - (princ (format "\n%s\n" file-name)) + (message (format "\n%s\n" file-name)) (let* ((version (pb/checkout name cfg pkg-cwd)) (files (pb/expand-file-list pkg-cwd cfg)) (default-directory package-build-working-dir))