Function: ebrowse-show-progress

ebrowse-show-progress is a byte-compiled function defined in ebrowse.el.gz.

Signature

(ebrowse-show-progress TITLE &optional START)

Documentation

Display a progress indicator.

TITLE is the title of the progress message. START non-nil means this is the first progress message displayed.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ebrowse.el.gz
(defun ebrowse-show-progress (title &optional start)
  "Display a progress indicator.
TITLE is the title of the progress message.  START non-nil means
this is the first progress message displayed."
  (let (message-log-max)
    (when start (setq ebrowse-n-boxes 0))
    (setq ebrowse-n-boxes (mod (1+ ebrowse-n-boxes) ebrowse-max-boxes))
    (message "%s: %s" title
	     (propertize (make-string ebrowse-n-boxes
				      (if (display-color-p) ?\  ?+))
			 'face 'ebrowse-progress))))