Mercurial > emacs
diff src/fns.c @ 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 | a4bf4dba3ace |
| children | d2d8b40fb599 |
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; }