diff options
| author | Karl Heuer | 1994-04-13 18:00:37 +0000 |
|---|---|---|
| committer | Karl Heuer | 1994-04-13 18:00:37 +0000 |
| commit | dfa8922859a47a72104a931110dd7641d01bcbe1 (patch) | |
| tree | 3ecaa36a3653ed2a9c7ba69876ac79f30aa06201 /src | |
| parent | a84cd140298a3a224df6a4bce4415e00681c46b3 (diff) | |
| download | emacs-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.c | 19 |
1 files changed, 10 insertions, 9 deletions
| @@ -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) "); |