Function: majutsu-diff--color-words--span-stream-pos

majutsu-diff--color-words--span-stream-pos is a natively compiled function defined in majutsu-diff.el.

Signature

(majutsu-diff--color-words--span-stream-pos OFFSET SPANS)

Documentation

Return buffer position for OFFSET into SPANS stream.

Source Code

;; Defined in /nix/store/jagqw3nms546pad0gxi5f3wsckk6pji7-emacs-packages-deps/share/emacs/site-lisp/majutsu-diff.el
(defun majutsu-diff--color-words--span-stream-pos (offset spans)
  "Return buffer position for OFFSET into SPANS stream."
  (let* ((total (majutsu-diff--color-words--span-stream-length spans))
         (remaining (max 0 (min offset (max 0 (1- total))))))
    (or
     (cl-block nil
       (dolist (span spans)
         (let* ((s (car span))
                (e (cdr span))
                (len (- e s)))
           (when (< remaining len)
             (cl-return (+ s remaining)))
           (setq remaining (- remaining len)))))
     (when spans
       (max (caar (last spans)) (1- (cdar (last spans))))))))