(read_char): When we loop and call redisplay,

do prepare_menu_bars first.

1 files changed, 4 insertions, 1 deletions

diff --git a/src/keyboard.c b/src/keyboard.c
index 6ff8789a5ed..c29c07f027b 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1645,7 +1645,10 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
       if (!NILP (c))
         break;
       if (commandflag >= 0 && !input_pending && !detect_input_pending ())
-        redisplay ();
+        {
+          prepare_menu_bars ();
+          redisplay ();
+        }
     }
 
   /* Terminate Emacs in batch mode if at eof.  */