From: Kim F. Storm <storm@cua.dk>
Date: Tue, 1 Jun 2004 23:18:25 +0000 (+0000)
Subject: (blink-cursor-start): Turn cursor off initially so blink
X-Git-Tag: ttn-vms-21-2-B4~5967
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9dbf2cd61677a6819dd2f4973c18b35c185b841e;p=emacs.git

(blink-cursor-start): Turn cursor off initially so blink
starts after blink-cursor-delay rather than 2*blink-cursor-delay.
---

diff --git a/lisp/frame.el b/lisp/frame.el
index 4a5b09ba68a..85b3270a077 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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))))