changeset 55878:83ecae86dde6

(blink-cursor-start): Turn cursor off initially so blink starts after blink-cursor-delay rather than 2*blink-cursor-delay.
author Kim F. Storm <storm@cua.dk>
date Tue, 01 Jun 2004 23:18:25 +0000
parents 885cb40ddc7c
children 7fd80a9c338d
files lisp/frame.el
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/frame.el	Tue Jun 01 23:17:24 2004 +0000
+++ b/lisp/frame.el	Tue Jun 01 23:18:25 2004 +0000
@@ -1297,6 +1297,7 @@
 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))))