Delay the cursor blink

Doug Coleman 2010-05-23 22:26:46 -05:00
parent 616ad9a4a7
commit fc9a5fee58
1 changed files with 1 additions and 1 deletions

View File

@ -65,7 +65,7 @@ SYMBOL: blink-interval
: start-blinking ( editor -- ) : start-blinking ( editor -- )
[ stop-blinking ] [ [ stop-blinking ] [
t >>blink t >>blink
dup '[ _ blink-caret ] blink-interval get every dup '[ _ blink-caret ] blink-interval get delayed-every
>>blink-alarm drop >>blink-alarm drop
] bi ; ] bi ;