Function: foldout-update-mode-line

foldout-update-mode-line is a byte-compiled function defined in foldout.el.gz.

Signature

(foldout-update-mode-line)

Documentation

Set the mode line to indicate our fold depth.

Source Code

;; Defined in /usr/src/emacs/lisp/foldout.el.gz
(defun foldout-update-mode-line ()
  "Set the mode line to indicate our fold depth."
  (let ((depth (length foldout-fold-list)))
    (setq foldout-mode-line-string
	  (cond
	   ;; if we're not in a fold, keep quiet
	   ((zerop depth)
	    nil)
	   ;; in outline-minor-mode we're after "Outl:xx" in the mode line
	   (outline-minor-mode
	    (format ":%d" depth))
	   ;; otherwise just announce the depth (I guess we're in outline-mode)
	   ((= depth 1)
	    " Inside 1 fold")
	   (t
	    (format " Inside %d folds" depth))))))