From: Fred Pierresteguy <F.Pierresteguy@frcl.bull.fr>
Date: Fri, 11 Mar 1994 10:15:21 +0000 (+0000)
Subject: (Fyes_or_no_p): Call Fx_popup_dialog instead of Fx_popup_menu.
X-Git-Tag: emacs-19.34~9549
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d2f28f78f3d5bea5bca0116c8065d894dc49bb39;p=emacs.git

(Fyes_or_no_p): Call Fx_popup_dialog instead of Fx_popup_menu.
(Fy_or_n_p): Likewise.
---

diff --git a/src/fns.c b/src/fns.c
index 5dc7e2d7fea..c07be7f13fd 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1132,7 +1132,7 @@ Also accepts Space to mean yes, or Delete to mean no.")
 			Fcons (Fcons (build_string ("No"), Qnil),
 			       Qnil));
 	  menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
-	  obj = Fx_popup_menu (Qt, menu);
+	  obj = Fx_popup_dialog (Qt, menu);
 	  answer = !NILP (obj);
 	  break;
 	}
@@ -1235,12 +1235,12 @@ and can edit it until it as been confirmed.")
 			   Qnil));
       GCPRO1 (pane);
       menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
-      obj = Fx_popup_menu (Qt, menu);
+      obj = Fx_popup_dialog(Qt, menu);
       if (!NILP (obj))
 	{
 	  prompt = build_string ("Confirm");
 	  menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
-	  obj = Fx_popup_menu (Qt, menu);
+	  obj = Fx_popup_dialog (Qt, menu);
 	}
       UNGCPRO;
       return obj;