comparison lisp/frame.el @ 83144:2e868590c17b

Merged in changes from CVS trunk. Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-357 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-358 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-359 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-360 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-361 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-362 Support " [...]" style defaults in minibuffer-electric-default-mode * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-363 (read-number): Use canonical format for default in prompt. * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-364 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-365 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-184

83143:9fb10038ca55

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."
  (when (null blink-cursor-timer)
    (add-hook 'pre-command-hook 'blink-cursor-end)
    (setq blink-cursor-timer
	  (run-with-timer blink-cursor-interval blink-cursor-interval
			  'blink-cursor-timer-function))))

(defun blink-cursor-timer-function ()

83144:2e868590c17b

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."
  (when (null blink-cursor-timer)
    (add-hook 'pre-command-hook 'blink-cursor-end)
    (internal-show-cursor nil nil)
    (setq blink-cursor-timer
	  (run-with-timer blink-cursor-interval blink-cursor-interval
			  'blink-cursor-timer-function))))

(defun blink-cursor-timer-function ()