Stacken/c64-livecoding
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Hide cursor during all non-insert commands

Browse source
This commit is contained in:
John Lorentzson 2025-07-31 14:51:33 +02:00
parent f84b895d22
commit 7c8dc6b7ba
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
editor/editor.lisp
View file

@ -1096,7 +1096,10 @@ Additionally ensures correct line numbers on the way, as a bonus."
(let ((input (get-input-sequence))) (let ((input (get-input-sequence)))
(if (characterp input) (if (characterp input)
(insert-char input) (insert-char input)
(key-command-dispatch input))) (progn
(hide-cursor)
(key-command-dispatch input)
(show-cursor))))
(redisplay-status-line) (redisplay-status-line)
(force-output *eio*)) (force-output *eio*))