# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 764446699 0
# Node ID 65c2e184b5d984beca19b785355ac44abd75299f
# Parent  95a4c1f81d0c03086f219bce4e84e215630d2d82
(Fy_or_n_p, Fyes_or_no_p): Call Fx_popup_dialog the new way.
(Fyes_or_no_p): Always display just one dialog box
whether or not USE_X_TOOLKIT.

diff -r 95a4c1f81d0c -r 65c2e184b5d9 src/fns.c
--- a/src/fns.c	Wed Mar 23 05:07:26 1994 +0000
+++ b/src/fns.c	Wed Mar 23 18:18:19 1994 +0000
@@ -1136,7 +1136,7 @@
 	  pane = Fcons (Fcons (build_string ("Yes"), Qt),
 			Fcons (Fcons (build_string ("No"), Qnil),
 			       Qnil));
-	  menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
+	  menu = Fcons (prompt, pane);
 	  obj = Fx_popup_dialog (Qt, menu);
 	  answer = !NILP (obj);
 	  break;
@@ -1239,16 +1239,8 @@
 		    Fcons (Fcons (build_string ("No"), Qnil),
 			   Qnil));
       GCPRO1 (pane);
-      menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
+      menu = Fcons (prompt, pane);
       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;
     }