diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-04-13 18:00:37 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-04-13 18:00:37 +0000 |
commit | 818b6189fa9f5cacb25a42926b69a53aa1139de9 (patch) | |
tree | 60328c2f00ad63fff36d3eb74b85e2573cbaaf8f /src/fns.c | |
parent | 47d1c5bb53ff70b1961d5fad8283ea49ad4944e6 (diff) | |
download | emacs-818b6189fa9f5cacb25a42926b69a53aa1139de9.tar.gz |
(Fy_or_n_p, Fyes_or_no_p): Test HAVE_X_MENU.
Diffstat (limited to 'src/fns.c')
-rw-r--r-- | src/fns.c | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/src/fns.c b/src/fns.c index fbed621b276..6a8f6fcf1ba 100644 --- a/src/fns.c +++ b/src/fns.c @@ -1130,6 +1130,7 @@ Also accepts Space to mean yes, or Delete to mean no.") while (1) { +#ifdef HAVE_X_MENU if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) { Lisp_Object pane, menu; @@ -1141,16 +1142,14 @@ Also accepts Space to mean yes, or Delete to mean no.") answer = !NILP (obj); break; } - else - { - cursor_in_echo_area = 1; - message ("%s(y or n) ", XSTRING (xprompt)->data); +#endif + cursor_in_echo_area = 1; + message ("%s(y or n) ", XSTRING (xprompt)->data); - obj = read_filtered_event (1, 0, 0); - cursor_in_echo_area = 0; - /* If we need to quit, quit with cursor_in_echo_area = 0. */ - QUIT; - } + obj = read_filtered_event (1, 0, 0); + cursor_in_echo_area = 0; + /* If we need to quit, quit with cursor_in_echo_area = 0. */ + QUIT; key = Fmake_vector (make_number (1), obj); def = Flookup_key (map, key); @@ -1232,6 +1231,7 @@ and can edit it until it as been confirmed.") CHECK_STRING (prompt, 0); +#ifdef HAVE_X_MENU if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) { Lisp_Object pane, menu, obj; @@ -1244,6 +1244,7 @@ and can edit it until it as been confirmed.") UNGCPRO; return obj; } +#endif args[0] = prompt; args[1] = build_string ("(yes or no) "); |