Michael Albinus <michael.albinus@gmx.de> writes:

> The small appended patch allows alsy symbols as first argument of
> `make-progress-reporter. If this argument is a string, the progress
> reporter still uses the minibuffer. If the argument is a symbol (used in
> `mode-line-format'), the respective part of the modeline is updated.
>
> See the examples:
>
> ;; Use harvey balls for progress.
> (setq pr1 (make-progress-reporter 'mode-line-remote))
> (let ((progress-reporter--pulse-characters
>        '["\u25F7" "\u25F6" "\u25F5" "\u25F4"]))
>   (while t (progress-reporter-update pr1)))
>
> ;; Let the buffer name blink.
> (setq pr2 (make-progress-reporter 'mode-line-buffer-identification))
> (let ((progress-reporter--pulse-characters
>        (vector '(:propertize "%12b" face mode-line-buffer-id)
> 	       '(:propertize "%12b" face font-lock-warning-face))))
>     (while t (progress-reporter-update pr2)))

Oops, patch forgotten. Appended.

>> Ted

Best regards, Michael.