Mercurial > emacs

comparison src/fns.c @ 7815:5d167db8ce8a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fy_or_n_p, Fyes_or_no_p) [HAVE_X_MENU]: Redisplay before popping up a menu.
author Karl Heuer <kwzh@gnu.org>
date Tue, 07 Jun 1994 02:32:54 +0000
parents 75153e2d5d85
children 0862dff6dfba
comparison
equal deleted inserted replaced
7814:e1e536773850 7815:5d167db8ce8a
1134 #ifdef HAVE_X_MENU 1134 #ifdef HAVE_X_MENU
1135 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) 1135 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
1136 && using_x_p ()) 1136 && using_x_p ())
1137 { 1137 {
1138 Lisp_Object pane, menu; 1138 Lisp_Object pane, menu;
1139 redisplay_preserve_echo_area ();
1139 pane = Fcons (Fcons (build_string ("Yes"), Qt), 1140 pane = Fcons (Fcons (build_string ("Yes"), Qt),
1140 Fcons (Fcons (build_string ("No"), Qnil), 1141 Fcons (Fcons (build_string ("No"), Qnil),
1141 Qnil)); 1142 Qnil));
1142 menu = Fcons (prompt, pane); 1143 menu = Fcons (prompt, pane);
1143 obj = Fx_popup_dialog (Qt, menu); 1144 obj = Fx_popup_dialog (Qt, menu);
1236 #ifdef HAVE_X_MENU 1237 #ifdef HAVE_X_MENU
1237 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) 1238 if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
1238 && using_x_p ()) 1239 && using_x_p ())
1239 { 1240 {
1240 Lisp_Object pane, menu, obj; 1241 Lisp_Object pane, menu, obj;
1242 redisplay_preserve_echo_area ();
1241 pane = Fcons (Fcons (build_string ("Yes"), Qt), 1243 pane = Fcons (Fcons (build_string ("Yes"), Qt),
1242 Fcons (Fcons (build_string ("No"), Qnil), 1244 Fcons (Fcons (build_string ("No"), Qnil),
1243 Qnil)); 1245 Qnil));
1244 GCPRO1 (pane); 1246 GCPRO1 (pane);
1245 menu = Fcons (prompt, pane); 1247 menu = Fcons (prompt, pane);