Function: artist-mode-line-show-curr-operation

artist-mode-line-show-curr-operation is a byte-compiled function defined in artist.el.gz.

Signature

(artist-mode-line-show-curr-operation IS-DRAWING)

Documentation

Show current operation in mode-line. If IS-DRAWING, show that.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/artist.el.gz
(defun artist-mode-line-show-curr-operation (is-drawing)
  "Show current operation in mode-line.  If IS-DRAWING, show that."
  (let ((mtext (concat artist-mode-name "/"
		       (artist-go-get-mode-line-from-symbol artist-curr-go)
		       (if is-drawing "/*" ""))))
    (setcdr (assq 'artist-mode minor-mode-alist) (list mtext)))
  (force-mode-line-update))