diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-03-23 18:18:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-03-23 18:18:19 +0000 |
| commit | ec26e1b924b5c039cf944593acf9bff7405879b8 (patch) | |
| tree | 7dd7efc44fd9b5c0cc0aec03b9c76e7cdde5e328 /src/fns.c | |
| parent | 84f6bcba554cde6fa7e9d45222587009535b6fc8 (diff) | |
| download | emacs-ec26e1b924b5c039cf944593acf9bff7405879b8.tar.gz | |
(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.
Diffstat (limited to 'src/fns.c')
| -rw-r--r-- | src/fns.c | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/fns.c b/src/fns.c index f1951ae1f94..fbed621b276 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1136,7 +1136,7 @@ Also accepts Space to mean yes, or Delete to mean no.") 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 @@ and can edit it until it as been confirmed.") 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; } |