Function: ses--cursor-sensor-highlight

ses--cursor-sensor-highlight is a byte-compiled function defined in ses.el.gz.

Signature

(ses--cursor-sensor-highlight WINDOW)

Source Code

;; Defined in /usr/src/emacs/lisp/ses.el.gz
(defun ses--cursor-sensor-highlight (window)
  (let ((curcell (ses--curcell))
        (ol (window-parameter window 'ses--curcell-overlay)))
    (unless ol
      (setq ol (make-overlay (point) (point)))
      (overlay-put ol 'window window)
      (overlay-put ol 'face 'underline)
      (set-window-parameter window 'ses--curcell-overlay ol))
    ;; Use underline overlay for single-cells only, turn off otherwise.
    (if (listp curcell)
        (delete-overlay ol)
      (let* ((pos (window-point window))
             (next (next-single-property-change pos 'cursor-intangible)))
        (move-overlay ol pos (1- next))))))