From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 19 Mar 1994 16:20:31 +0000 (+0000)
Subject: (Fyes_or_no_p) [USE_X_TOOLKIT]: Display just one menu.
X-Git-Tag: emacs-19.34~9425
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04b5691b3991d0dff7e1dbbc6eeb2a63719d99bc;p=emacs.git

(Fyes_or_no_p) [USE_X_TOOLKIT]: Display just one menu.
---

diff --git a/src/fns.c b/src/fns.c
index 555cae98afb..f1951ae1f94 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1241,12 +1241,14 @@ and can edit it until it as been confirmed.")
       GCPRO1 (pane);
       menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
       obj = Fx_popup_dialog (Qt, menu);
+#ifndef USE_X_TOOLKIT
       if (!NILP (obj))
 	{
 	  prompt = build_string ("Confirm");
 	  menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
 	  obj = Fx_popup_dialog (Qt, menu);
 	}
+#endif
       UNGCPRO;
       return obj;
     }