Display the "waiting" time between EmacsWiki requests using fewer decimal places

This commit is contained in:
Steve Purcell 2012-09-16 09:01:53 +01:00
parent 5a96d65f6e
commit 3a354296db

View file

@ -155,7 +155,7 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
(,elapsed (- ,now pb/last-wiki-fetch-time)))
(when (< ,elapsed pb/wiki-min-request-interval)
(let ((wait (- pb/wiki-min-request-interval ,elapsed)))
(message "Waiting %s secs before hitting Emacswiki again" wait)
(message "Waiting %.2f secs before hitting Emacswiki again" wait)
(sleep-for wait)))
(unwind-protect
(progn ,@body)