Function: progress-reporter-echo-area

progress-reporter-echo-area is a byte-compiled function defined in subr.el.gz.

Signature

(progress-reporter-echo-area REPORTER STATE)

Documentation

Progress reporter echo area update function.

REPORTER and STATE are the same as in progress-reporter-update-functions.

Source Code

;; Defined in /usr/src/emacs/lisp/subr.el.gz
(defun progress-reporter-echo-area (reporter state)
  "Progress reporter echo area update function.
REPORTER and STATE are the same as in
`progress-reporter-update-functions'."
  (let ((text (progress-reporter-text reporter)))
    (pcase state
      ((pred floatp)
       (if (plusp state)
           (message "%s%d%%" text (* state 100.0))
         (message "%s" text)))
      ((pred integerp)
       (let ((message-log-max nil)
             (pulse-char (aref progress-reporter--pulse-characters
                               state)))
         (message "%s %s" text pulse-char)))
      ('done
       (message "%sdone" text)))))