Function: hierarchy-labelfn-indent

hierarchy-labelfn-indent is a byte-compiled function defined in hierarchy.el.gz.

Signature

(hierarchy-labelfn-indent LABELFN &optional INDENT-STRING)

Documentation

Return a function rendering LABELFN indented with INDENT-STRING.

INDENT-STRING defaults to a 2-space string. Indentation is multiplied by the depth of the displayed item.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/hierarchy.el.gz
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Display
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun hierarchy-labelfn-indent (labelfn &optional indent-string)
  "Return a function rendering LABELFN indented with INDENT-STRING.

INDENT-STRING defaults to a 2-space string.  Indentation is
multiplied by the depth of the displayed item."
  (let ((indent-string (or indent-string "  ")))
    (lambda (item indent)
      (dotimes (_ indent) (insert indent-string))
      (funcall labelfn item indent))))