Function: blink-cursor-start

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

Signature

(blink-cursor-start)

Documentation

Timer function called from the timer blink-cursor-idle-timer.

This starts the timer blink-cursor-timer, which makes the cursor blink if appropriate. It also arranges to cancel that timer when the next command starts, by installing a pre-command hook.

Source Code

;; Defined in /usr/src/emacs/lisp/frame.el.gz
(defun blink-cursor-start ()
  "Timer function called from the timer `blink-cursor-idle-timer'.
This starts the timer `blink-cursor-timer', which makes the cursor blink
if appropriate.  It also arranges to cancel that timer when the next
command starts, by installing a pre-command hook."
  (cond
   ((null blink-cursor-mode) (blink-cursor-mode -1))
   ((null blink-cursor-timer)
    ;; Set up the timer first, so that if this signals an error,
    ;; blink-cursor-end is not added to pre-command-hook.
    (setq blink-cursor-blinks-done 1)
    (blink-cursor--start-timer)
    (add-hook 'pre-command-hook #'blink-cursor-end)
    (internal-show-cursor nil nil))))