Move where "Key is unbound" message is displayed

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*)))