aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorKarl Heuer1994-04-13 18:00:37 +0000
committerKarl Heuer1994-04-13 18:00:37 +0000
commitdfa8922859a47a72104a931110dd7641d01bcbe1 (patch)
tree3ecaa36a3653ed2a9c7ba69876ac79f30aa06201 /src
parenta84cd140298a3a224df6a4bce4415e00681c46b3 (diff)
downloademacs-dfa8922859a47a72104a931110dd7641d01bcbe1.tar.gz
emacs-dfa8922859a47a72104a931110dd7641d01bcbe1.zip
(Fy_or_n_p, Fyes_or_no_p): Test HAVE_X_MENU.
Diffstat (limited to 'src')
-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.")
1130 1130
1131 while (1) 1131 while (1)
1132 { 1132 {
1133#ifdef HAVE_X_MENU
1133 if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) 1134 if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
1134 { 1135 {
1135 Lisp_Object pane, menu; 1136 Lisp_Object pane, menu;
@@ -1141,16 +1142,14 @@ Also accepts Space to mean yes, or Delete to mean no.")
1141 answer = !NILP (obj); 1142 answer = !NILP (obj);
1142 break; 1143 break;
1143 } 1144 }
1144 else 1145#endif
1145 { 1146 cursor_in_echo_area = 1;
1146 cursor_in_echo_area = 1; 1147 message ("%s(y or n) ", XSTRING (xprompt)->data);
1147 message ("%s(y or n) ", XSTRING (xprompt)->data);
1148 1148
1149 obj = read_filtered_event (1, 0, 0); 1149 obj = read_filtered_event (1, 0, 0);
1150 cursor_in_echo_area = 0; 1150 cursor_in_echo_area = 0;
1151 /* If we need to quit, quit with cursor_in_echo_area = 0. */ 1151 /* If we need to quit, quit with cursor_in_echo_area = 0. */
1152 QUIT; 1152 QUIT;
1153 }
1154 1153
1155 key = Fmake_vector (make_number (1), obj); 1154 key = Fmake_vector (make_number (1), obj);
1156 def = Flookup_key (map, key); 1155 def = Flookup_key (map, key);
@@ -1232,6 +1231,7 @@ and can edit it until it as been confirmed.")
1232 1231
1233 CHECK_STRING (prompt, 0); 1232 CHECK_STRING (prompt, 0);
1234 1233
1234#ifdef HAVE_X_MENU
1235 if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) 1235 if (NILP (last_nonmenu_event) || CONSP (last_nonmenu_event))
1236 { 1236 {
1237 Lisp_Object pane, menu, obj; 1237 Lisp_Object pane, menu, obj;
@@ -1244,6 +1244,7 @@ and can edit it until it as been confirmed.")
1244 UNGCPRO; 1244 UNGCPRO;
1245 return obj; 1245 return obj;
1246 } 1246 }
1247#endif
1247 1248
1248 args[0] = prompt; 1249 args[0] = prompt;
1249 args[1] = build_string ("(yes or no) "); 1250 args[1] = build_string ("(yes or no) ");