Function: indent-bars--fontify

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

Signature

(indent-bars--fontify BEG END VERBOSE)

Documentation

Add indent-bars from BEG to END after calling font-lock there.

The VERBOSE argument is provided by font-lock. If indent-bars--font-lock-inhibit is a function, call it with BEG and END. If it returns non-nil, skip font-lock.

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--fontify (beg end verbose)
  "Add indent-bars from BEG to END after calling font-lock there.
The VERBOSE argument is provided by font-lock.  If
`indent-bars--font-lock-inhibit' is a function, call it with BEG
and END.  If it returns non-nil, skip font-lock."
  ;; Fontify with font-lock, unless inhibited (clears + sets 'face)
  (unless (and indent-bars--font-lock-inhibit
	       (funcall indent-bars--font-lock-inhibit beg end))
    (pcase (funcall indent-bars--orig-fontify-region beg end verbose)
      (`(jit-lock-bounds ,beg1 . ,end1) (setq beg beg1 end end1))))
  ;; Always draw bars (which may overwrite 'face in a few places)
  (pcase-let ((`(,beg . ,end) (indent-bars--extend-region beg end)))
    (with-silent-modifications
      ;; We remove our display alias here instead of by adding it to
      ;; `font-lock-extra-managed-keywords' because font-lock will not
      ;; always be run.
      (remove-text-properties beg end '(indent-bars-display nil))
      (indent-bars--draw-all-bars-between beg end))
    `(jit-lock-bounds ,beg . ,end)))