diff options
| author | Kim F. Storm | 2004-06-01 23:18:25 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2004-06-01 23:18:25 +0000 |
| commit | 9dbf2cd61677a6819dd2f4973c18b35c185b841e (patch) | |
| tree | a3e1d5c8f4614a443a9d1346660c2591bad800c6 | |
| parent | 90ec69c70ae549951d38fb290b71ba18aea49068 (diff) | |
| download | emacs-9dbf2cd61677a6819dd2f4973c18b35c185b841e.tar.gz emacs-9dbf2cd61677a6819dd2f4973c18b35c185b841e.zip | |
(blink-cursor-start): Turn cursor off initially so blink
starts after blink-cursor-delay rather than 2*blink-cursor-delay.
| -rw-r--r-- | lisp/frame.el | 1 |
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 | |||
| 1297 | command starts, by installing a pre-command hook." | 1297 | command starts, by installing a pre-command hook." |
| 1298 | (when (null blink-cursor-timer) | 1298 | (when (null blink-cursor-timer) |
| 1299 | (add-hook 'pre-command-hook 'blink-cursor-end) | 1299 | (add-hook 'pre-command-hook 'blink-cursor-end) |
| 1300 | (internal-show-cursor nil nil) | ||
| 1300 | (setq blink-cursor-timer | 1301 | (setq blink-cursor-timer |
| 1301 | (run-with-timer blink-cursor-interval blink-cursor-interval | 1302 | (run-with-timer blink-cursor-interval blink-cursor-interval |
| 1302 | 'blink-cursor-timer-function)))) | 1303 | 'blink-cursor-timer-function)))) |