changeset 6478:65c2e184b5d9

(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.
author Richard M. Stallman <rms@gnu.org>
date Wed, 23 Mar 1994 18:18:19 +0000
parents 95a4c1f81d0c
children 855f4f2d24da
files src/fns.c
diffstat 1 files changed, 2 insertions(+), 10 deletions(-) [+]
line wrap: on
line diff
--- 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;
     }