Function: kview:previous-visible-point

kview:previous-visible-point is a byte-compiled function defined in kview.el.

Signature

(kview:previous-visible-point &optional POS)

Documentation

Return the first preceding point that is followed by a visible character.

Start from point or optional POS. If not found, return (point-min). Value may be the character immediately after point.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/kview.el
(defun kview:previous-visible-point (&optional pos)
  "Return the first preceding point that is followed by a visible character.
Start from point or optional POS.  If not found, return (point-min).
Value may be the character immediately after point."
  (unless pos
    (setq pos (point)))
  (setq pos (1- pos))
  (while (and pos (invisible-p pos))
    (if (kproperty:get pos 'invisible)
	(progn (setq pos (kproperty:previous-single-change pos 'invisible))
	       (when pos (setq pos (1- pos))))
      (let ((overlay (car (delq nil (mapcar (lambda (o) (when (overlay-get o 'invisible) o))
					    (overlays-at pos))))))
	(setq pos (1- (overlay-start overlay))))))
  (or pos (point-max)))