diff --git a/src/eval.c b/src/eval.c
index e9ab035..f66fb1b 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -20786,7 +20786,8 @@
     nesting = 0;
     for (;;)
     {
-	msg_scroll = TRUE;
+	if (KeyTyped)
+	    msg_scroll = TRUE;
 	need_wait_return = FALSE;
 	sourcing_lnum_off = sourcing_lnum;