# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 770956374 0
# Node ID 5d167db8ce8a19edd6caaa9d3dfaf0095b61f67e
# Parent  e1e536773850f4b1b0244ab940f45bc8b2ac1bf6
(Fy_or_n_p, Fyes_or_no_p) [HAVE_X_MENU]: Redisplay before popping up a menu.

diff -r e1e536773850 -r 5d167db8ce8a src/fns.c
--- a/src/fns.c	Tue Jun 07 01:12:36 1994 +0000
+++ b/src/fns.c	Tue Jun 07 02:32:54 1994 +0000
@@ -1136,6 +1136,7 @@
 	  && using_x_p ())
 	{
 	  Lisp_Object pane, menu;
+	  redisplay_preserve_echo_area ();
 	  pane = Fcons (Fcons (build_string ("Yes"), Qt),
 			Fcons (Fcons (build_string ("No"), Qnil),
 			       Qnil));
@@ -1238,6 +1239,7 @@
       && using_x_p ())
     {
       Lisp_Object pane, menu, obj;
+      redisplay_preserve_echo_area ();
       pane = Fcons (Fcons (build_string ("Yes"), Qt),
 		    Fcons (Fcons (build_string ("No"), Qnil),
 			   Qnil));