Emacs progress indication

When programming in emacs lisp, there is an easy way to show progress feedback to the user when a task will take some time. Here's a block of code from the elisp manual showing how to do it.

(let ((progress-reporter

(make-progress-reporter "Collecting mana for Emacs..."

0 500)))

(dotimes (k 500)

(sit-for 0.01)

(progress-reporter-update progress-reporter k))

(progress-reporter-done progress-reporter))