aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorFred Pierresteguy1994-03-11 10:15:21 +0000
committerFred Pierresteguy1994-03-11 10:15:21 +0000
commitd2f28f78f3d5bea5bca0116c8065d894dc49bb39 (patch)
treea51b7268f4182865885eae3a353db23b38da5a4b
parentb70cfce2b576dc6b8a9706cff05b84146501ce7f (diff)
downloademacs-d2f28f78f3d5bea5bca0116c8065d894dc49bb39.tar.gz
emacs-d2f28f78f3d5bea5bca0116c8065d894dc49bb39.zip
(Fyes_or_no_p): Call Fx_popup_dialog instead of Fx_popup_menu.
(Fy_or_n_p): Likewise.
-rw-r--r--src/fns.c6
1 files changed, 3 insertions, 3 deletions
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.")
1132 Fcons (Fcons (build_string ("No"), Qnil), 1132 Fcons (Fcons (build_string ("No"), Qnil),
1133 Qnil)); 1133 Qnil));
1134 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil)); 1134 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
1135 obj = Fx_popup_menu (Qt, menu); 1135 obj = Fx_popup_dialog (Qt, menu);
1136 answer = !NILP (obj); 1136 answer = !NILP (obj);
1137 break; 1137 break;
1138 } 1138 }
@@ -1235,12 +1235,12 @@ and can edit it until it as been confirmed.")
1235 Qnil)); 1235 Qnil));
1236 GCPRO1 (pane); 1236 GCPRO1 (pane);
1237 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil)); 1237 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
1238 obj = Fx_popup_menu (Qt, menu); 1238 obj = Fx_popup_dialog(Qt, menu);
1239 if (!NILP (obj)) 1239 if (!NILP (obj))
1240 { 1240 {
1241 prompt = build_string ("Confirm"); 1241 prompt = build_string ("Confirm");
1242 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil)); 1242 menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
1243 obj = Fx_popup_menu (Qt, menu); 1243 obj = Fx_popup_dialog (Qt, menu);
1244 } 1244 }
1245 UNGCPRO; 1245 UNGCPRO;
1246 return obj; 1246 return obj;