Function: blink-cursor--should-blink

blink-cursor--should-blink is a byte-compiled function defined in frame.el.gz.

Signature

(blink-cursor--should-blink)

Documentation

Determine whether we should be blinking.

Returns whether we have any focused non-TTY frame.

Source Code

;; Defined in /usr/src/emacs/lisp/frame.el.gz
(defun blink-cursor--should-blink ()
  "Determine whether we should be blinking.
Returns whether we have any focused non-TTY frame."
  (and blink-cursor-mode
       (let ((frame-list (frame-list))
             (any-graphical-focused nil))
         (while frame-list
           (let ((frame (pop frame-list)))
             (when (and (display-graphic-p frame) (frame-focus-state frame))
               (setf any-graphical-focused t)
               (setf frame-list nil))))
         any-graphical-focused)))