From: Paul Eggert Date: Tue, 4 Feb 2014 19:24:09 +0000 (-0800) Subject: * menu.c (Fx_popup_dialog): Remove label 'dialog_via_menu'. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~173 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8e5917ecb306bcf783ea2e432544ecd4e8ec3309;p=emacs.git * 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. --- diff --git a/src/ChangeLog b/src/ChangeLog index 5bba143826f..1ef4d9fc816 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2014-02-04 Paul Eggert + + * 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 * w32menu.c (w32_popup_dialog): Don't condition the whole function diff --git a/src/menu.c b/src/menu.c index 47ebc922b84..9c08ff17665 100644 --- a/src/menu.c +++ b/src/menu.c @@ -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)) {