Function: majutsu-row--finalize-entry-gap

majutsu-row--finalize-entry-gap is a natively compiled function defined in majutsu-row.el.

Signature

(majutsu-row--finalize-entry-gap ENTRY GAP-BEG GAP-END NEXT-MARKER)

Documentation

Finalize ENTRY's inter-event text from GAP-BEG to GAP-END.

When NEXT-MARKER is non-nil, exclude the graph/carrier prefix before that marker from ENTRY's source span and suffix lines.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-row.el
(defun majutsu-row--finalize-entry-gap (entry gap-beg gap-end next-marker)
  "Finalize ENTRY's inter-event text from GAP-BEG to GAP-END.
When NEXT-MARKER is non-nil, exclude the graph/carrier prefix before that
marker from ENTRY's source span and suffix lines."
  (when entry
    (let* ((entry-end
            (if next-marker
                (let ((line-beg (save-excursion
                                  (goto-char next-marker)
                                  (line-beginning-position))))
                  (if (> line-beg gap-beg)
                      line-beg
                    next-marker))
              gap-end))
           (suffix-lines (majutsu-row--suffix-lines-from-region
                          gap-beg entry-end)))
      (majutsu-row--append-suffix-lines entry suffix-lines)
      (plist-put entry :end entry-end)))
  entry)