From 7c8dc6b7ba4c426a58cf931e49bfc79a235ffae3 Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Thu, 31 Jul 2025 14:51:33 +0200
Subject: [PATCH] Hide cursor during all non-insert commands

---
 editor/editor.lisp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/editor/editor.lisp b/editor/editor.lisp
index d7faf42..e7d6a75 100644
--- 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*))