Function: kview:first-invisible-point

kview:first-invisible-point is a byte-compiled function defined in kview.el.

Signature

(kview:first-invisible-point &optional POS)

Documentation

Return the first point that is followed by an invisible character.

Start from point or optional POS. If none are found, return the end point of the cell contents. Value may be the character immediately after point.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/kview.el
(defun kview:first-invisible-point (&optional pos)
  "Return the first point that is followed by an invisible character.
Start from point or optional POS.  If none are found, return the
end point of the cell contents.
Value may be the character immediately after point."
  (unless pos
    (setq pos (point)))
  (let ((end (kcell-view:end-contents pos)))
    (while (and pos (< pos end) (not (invisible-p pos)))
      (if (kproperty:get pos 'invisible)
	  (setq pos (kproperty:next-single-change pos 'invisible nil end))
	(let ((overlay (car (delq nil (mapcar (lambda (o) (when (overlay-get o 'invisible) o))
					      (overlays-at pos))))))
	  (setq pos (if overlay (overlay-end overlay) (1+ pos))))))
    (or pos end)))