summaryrefslogtreecommitdiff
path: root/lisp/frame.el
diff options
context:
space:
mode:
authorKim F. Storm <storm@cua.dk>2004-06-01 23:18:25 +0000
committerKim F. Storm <storm@cua.dk>2004-06-01 23:18:25 +0000
commit9dbf2cd61677a6819dd2f4973c18b35c185b841e (patch)
treea3e1d5c8f4614a443a9d1346660c2591bad800c6 /lisp/frame.el
parent90ec69c70ae549951d38fb290b71ba18aea49068 (diff)
downloademacs-9dbf2cd61677a6819dd2f4973c18b35c185b841e.tar.gz
(blink-cursor-start): Turn cursor off initially so blink
starts after blink-cursor-delay rather than 2*blink-cursor-delay.
Diffstat (limited to 'lisp/frame.el')
-rw-r--r--lisp/frame.el1
1 files changed, 1 insertions, 0 deletions
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))))