summaryrefslogtreecommitdiff
path: root/src/fns.c
diff options
context:
space:
mode:
authorKarl Heuer <kwzh@gnu.org>1994-04-13 18:00:37 +0000
committerKarl Heuer <kwzh@gnu.org>1994-04-13 18:00:37 +0000
commit818b6189fa9f5cacb25a42926b69a53aa1139de9 (patch)
tree60328c2f00ad63fff36d3eb74b85e2573cbaaf8f /src/fns.c
parent47d1c5bb53ff70b1961d5fad8283ea49ad4944e6 (diff)
downloademacs-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.c19
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) ");