Commit 8e5917ec authored by Paul Eggert's avatar Paul Eggert
Browse files

* menu.c (Fx_popup_dialog): Remove label 'dialog_via_menu'.

It prompted a compile-time diagnostic on GNU/Linux.
Simplify to remove the need for the label.
parent 08e41897
2014-02-04 Paul Eggert <eggert@cs.ucla.edu>
* menu.c (Fx_popup_dialog): Remove label 'dialog_via_menu'.
It prompted a compile-time diagnostic on GNU/Linux.
Simplify to remove the need for the label.
2014-02-04 Eli Zaretskii <eliz@gnu.org>
* w32menu.c (w32_popup_dialog): Don't condition the whole function
......
......@@ -1561,26 +1561,23 @@ for instance using the window manager, then this produces a quit and
Do this before creating the widget value that points to Lisp
string contents, because Fredisplay may GC and relocate them. */
Fredisplay (Qt);
#if defined (USE_X_TOOLKIT) || defined (USE_GTK)
#if defined USE_X_TOOLKIT || defined USE_GTK
if (FRAME_WINDOW_P (f))
return xw_popup_dialog (f, header, contents);
else
#endif
#if defined (HAVE_NTGUI)
#ifdef HAVE_NTGUI
if (FRAME_W32_P (f))
{
Lisp_Object selection = w32_popup_dialog (f, header, contents);
if (!EQ (selection, Qunsupported__w32_dialog))
return selection;
goto dialog_via_menu;
}
else
#endif
#ifdef HAVE_NS
if (FRAME_NS_P (f))
return ns_popup_dialog (position, header, contents);
else
#endif
/* Display a menu with these alternatives
in the middle of frame F. */
......@@ -1588,8 +1585,6 @@ for instance using the window manager, then this produces a quit and
Lisp_Object x, y, frame, newpos, prompt;
int x_coord, y_coord;
dialog_via_menu:
prompt = Fcar (contents);
if (FRAME_WINDOW_P (f))
{
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment