Function: redisplay--update-cursor-face-highlight

redisplay--update-cursor-face-highlight is a byte-compiled function defined in simple.el.gz.

Signature

(redisplay--update-cursor-face-highlight WINDOW)

Documentation

Highlights the overlay used to highlight text with cursor-face.

Source Code

;; Defined in /usr/src/emacs/lisp/simple.el.gz
(defun redisplay--update-cursor-face-highlight (window)
  "Highlights the overlay used to highlight text with cursor-face."
  (let ((rol (window-parameter window 'internal-cursor-face-overlay)))
    (if-let* (((or cursor-face-highlight-nonselected-window
                   (eq window (selected-window))
                   (and (window-minibuffer-p)
                        (eq window (minibuffer-selected-window)))))
              (pt (window-point window))
              (cursor-face (get-text-property pt 'cursor-face)))
        (let* ((start (previous-single-property-change
                       (min (1+ pt) (point-max)) 'cursor-face nil (point-min)))
               (end (next-single-property-change
                     pt 'cursor-face nil (point-max)))
               (new (redisplay--highlight-overlay-function
                     start end window rol cursor-face)))
          (unless (equal new rol)
            (set-window-parameter window 'internal-cursor-face-overlay new)))
      (redisplay--unhighlight-overlay-function rol))))