(blink-cursor-start): Turn cursor off initially so blink

starts after blink-cursor-delay rather than 2*blink-cursor-delay.
This commit is contained in:
Kim F. Storm
2004-06-01 23:18:25 +00:00
parent 90ec69c70a
commit 9dbf2cd616

View File

@@ -1297,6 +1297,7 @@ 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))))