diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/fns.c | 7 |
1 files changed, 3 insertions, 4 deletions
| @@ -2434,8 +2434,8 @@ a space; `yes-or-no-p' adds \"(yes or no) \" to it. | |||
| 2434 | The user must confirm the answer with RET, and can edit it until it | 2434 | The user must confirm the answer with RET, and can edit it until it |
| 2435 | has been confirmed. | 2435 | has been confirmed. |
| 2436 | 2436 | ||
| 2437 | Under a windowing system a dialog box will be used if `last-nonmenu-event' | 2437 | If dialog boxes are supported, a dialog box will be used |
| 2438 | is nil, and `use-dialog-box' is non-nil. */) | 2438 | if `last-nonmenu-event' is nil, and `use-dialog-box' is non-nil. */) |
| 2439 | (Lisp_Object prompt) | 2439 | (Lisp_Object prompt) |
| 2440 | { | 2440 | { |
| 2441 | register Lisp_Object ans; | 2441 | register Lisp_Object ans; |
| @@ -2446,8 +2446,7 @@ is nil, and `use-dialog-box' is non-nil. */) | |||
| 2446 | 2446 | ||
| 2447 | #ifdef HAVE_MENUS | 2447 | #ifdef HAVE_MENUS |
| 2448 | if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) | 2448 | if ((NILP (last_nonmenu_event) || CONSP (last_nonmenu_event)) |
| 2449 | && use_dialog_box | 2449 | && use_dialog_box) |
| 2450 | && window_system_available (SELECTED_FRAME ())) | ||
| 2451 | { | 2450 | { |
| 2452 | Lisp_Object pane, menu, obj; | 2451 | Lisp_Object pane, menu, obj; |
| 2453 | redisplay_preserve_echo_area (4); | 2452 | redisplay_preserve_echo_area (4); |