github/melpa
1
0
Fork 0
mirror of https://github.com/correl/melpa.git synced 2024-11-15 03:00:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source
This commit is contained in:
Steve Purcell 2012-09-16 09:01:53 +01:00
parent 5a96d65f6e
commit 3a354296db
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
package-build.el
View file

@ -155,7 +155,7 @@ seconds; the server cuts off after 10 requests in 20 seconds.")
(,elapsed (- ,now pb/last-wiki-fetch-time))) (,elapsed (- ,now pb/last-wiki-fetch-time)))
(when (< ,elapsed pb/wiki-min-request-interval) (when (< ,elapsed pb/wiki-min-request-interval)
(let ((wait (- pb/wiki-min-request-interval ,elapsed))) (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))) (sleep-for wait)))
(unwind-protect (unwind-protect
(progn ,@body) (progn ,@body)