mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 01:41:01 -08:00
Code Issues Projects Releases Wiki Activity

(Fyes_or_no_p): Call Fx_popup_dialog instead of Fx_popup_menu.

Browse source 
(Fy_or_n_p): Likewise.
This commit is contained in:
Fred Pierresteguy 1994-03-11 10:15:21 +00:00
parent b70cfce2b5
commit d2f28f78f3
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/fns.c
View file

@ -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;