Function: indent-bars--tab-display

indent-bars--tab-display is a natively compiled function defined in indent-bars.el.

Signature

(indent-bars--tab-display STYLE P OFF BAR-FROM SKIP MAX &rest R)

Documentation

Display up to MAX bars on the tab at position P.

Within the space occupied by the tab character, bars are offset by OFF columns. Bars are spaced by indent-bars-spacing and displayed with style STYLE. BAR-FROM is the bar number for the first bar. SKIP is a list of bar numbers to skip. Other arguments R are passed to indent-bars--blank-string. Returns the number of bars actually displayed or skipped.

Source Code

;; Defined in /nix/store/zkcdcnmcj3605fj09x584bf58d85brax-emacs-packages-deps/share/emacs/site-lisp/elpa/indent-bars-1.0.1/indent-bars.el
(defun indent-bars--tab-display (style p off bar-from skip max &rest r)
  "Display up to MAX bars on the tab at position P.
Within the space occupied by the tab character, bars are offset by OFF
columns.  Bars are spaced by `indent-bars-spacing' and displayed with
style STYLE.  BAR-FROM is the bar number for the first bar.  SKIP is a
list of bar numbers to skip.  Other arguments R are passed to
`indent-bars--blank-string'.  Returns the number of bars actually
displayed or skipped."
  (let ((nbars (min max (1+ (/ (- tab-width off 1) indent-bars-spacing)))))
    (unless (and skip (cl-loop for b from bar-from upto (+ bar-from nbars)
			       unless (memql b skip) return nil
			       finally return t)) ; all skipped
     (put-text-property p (+ p 1) 'indent-bars-display
			(apply #'indent-bars--blank-string style off nbars
			       bar-from skip tab-width r)))
    nbars))