mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 23:31:55 -08:00
Code Issues Projects Releases Wiki Activity

(Fyes_or_no_p) [USE_X_TOOLKIT]: Display just one menu.

Browse source
This commit is contained in:
Richard M. Stallman 1994-03-19 16:20:31 +00:00
parent 80670155d2
commit 04b5691b39
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fns.c
View file

@ -1241,12 +1241,14 @@ and can edit it until it as been confirmed.")
GCPRO1 (pane);
menu = Fcons (prompt, Fcons (Fcons (prompt, pane), Qnil));
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;
}