From a1f66db972ec17973d228b6ff829ec82ebe9496a Mon Sep 17 00:00:00 2001
From: John Lorentzson <john_lorentzson@yahoo.com>
Date: Mon, 28 Jul 2025 16:20:04 +0200
Subject: [PATCH] Move where "Key is unbound" message is displayed

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

diff --git a/editor/editor.lisp b/editor/editor.lisp
index a871733..75dacd2 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -851,7 +851,11 @@ Additionally ensures correct line numbers on the way, as a bonus."
     (setf key (char-downcase key)))
   (let ((mapping (assoc key *key-command-mappings* :test #'equalp)))
     (if (null mapping)
-        (format *eio* "Key ~A is unbound.~%" key)
+        (progn
+          (move-cursor *status-line-position* 0)
+          (format *eio* "~<~;Key ~A is unbound.~>" key)
+          (force-output *eio*)
+          (sleep 1))
         (funcall (cadr mapping)))
     (force-output *eio*)))