describe(describe-key-dispatch): Fix UI/UX issue.

Closes #2997.
atlas-engineer · Jun 25, 2024 · 3e8d0b6 · 3e8d0b6
1 parent 4692524
commit 3e8d0b6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/source/describe.lisp b/source/describe.lisp
@@ -643,7 +643,8 @@ A command is a special kind of function that can be called with
         :command (typecase command
                    (symbol command)
                    (command (name command))))
-    (setf (command-dispatcher *browser*) #'dispatch-command)))
+    (setf (command-dispatcher *browser*) #'dispatch-command)
+    (echo-dismiss)))
 
 (define-command describe-key ()
   "Display binding of user-inputted keys."