Function: sesman-browser--sensor-function

sesman-browser--sensor-function is a byte-compiled function defined in sesman-browser.el.

Signature

(sesman-browser--sensor-function &rest IGNORE)

Source Code

;; Defined in ~/.emacs.d/elpa/sesman-20240417.1723/sesman-browser.el
(defun sesman-browser--sensor-function (&rest _ignore)
  (let ((beg (or (when (get-text-property (point) :sesman-stop)
                   (if (get-text-property (1- (point)) :sesman-stop)
                       (previous-single-char-property-change (point) :sesman-stop)
                     (point)))
                 (next-single-char-property-change (point) :sesman-stop)))
        (end (next-single-char-property-change (point) :sesman-stop)))
    (move-overlay sesman-browser--stop-overlay beg end)
    (when window-system
      (let ((beg (get-text-property (point) :sesman-fragment-beg))
            (end (get-text-property (point) :sesman-fragment-end)))
        (when (and beg end)
          (move-overlay sesman-browser--section-overlay beg end))))))