Hide cursor during all non-insert commands

2025-07-31 14:51:33 +02:00 · 2025-07-31 14:51:33 +02:00 · 7c8dc6b7ba
commit 7c8dc6b7ba
parent f84b895d22
1 changed files with 4 additions and 1 deletions
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@ -1096,7 +1096,10 @@ Additionally ensures correct line numbers on the way, as a bonus."
  (let ((input (get-input-sequence)))
    (if (characterp input)
        (insert-char input)
-        (key-command-dispatch input)))
+        (progn
+          (hide-cursor)
+          (key-command-dispatch input)
+          (show-cursor))))
  (redisplay-status-line)
  (force-output *eio*))