diff options
| author | Eli Zaretskii | 2013-09-30 19:25:08 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2013-09-30 19:25:08 +0300 |
| commit | 6509f7727e1077ab60e24c3f077ff06c3cadb2d5 (patch) | |
| tree | 897f1b7a4e1be422017e0ec9fe8ec7343e3e616e /src | |
| parent | bdaed46f365f1b6c6222f572cd2c4c9574617ea5 (diff) | |
| download | emacs-6509f7727e1077ab60e24c3f077ff06c3cadb2d5.tar.gz emacs-6509f7727e1077ab60e24c3f077ff06c3cadb2d5.zip | |
Fix message-box and avoid compilation warnings.
Diffstat (limited to 'src')
| -rw-r--r-- | src/editfns.c | 25 | ||||
| -rw-r--r-- | src/frame.h | 3 | ||||
| -rw-r--r-- | src/window.c | 4 |
3 files changed, 14 insertions, 18 deletions
diff --git a/src/editfns.c b/src/editfns.c index 84a5c8395fc..e6e63c205b9 100644 --- a/src/editfns.c +++ b/src/editfns.c | |||
| @@ -3469,22 +3469,17 @@ usage: (message-box FORMAT-STRING &rest ARGS) */) | |||
| 3469 | { | 3469 | { |
| 3470 | Lisp_Object val = Fformat (nargs, args); | 3470 | Lisp_Object val = Fformat (nargs, args); |
| 3471 | #ifdef HAVE_MENUS | 3471 | #ifdef HAVE_MENUS |
| 3472 | /* The MS-DOS frames support popup menus even though they are | 3472 | Lisp_Object pane, menu; |
| 3473 | not FRAME_WINDOW_P. */ | 3473 | struct gcpro gcpro1; |
| 3474 | if (FRAME_WINDOW_P (XFRAME (selected_frame)) | 3474 | |
| 3475 | || FRAME_MSDOS_P (XFRAME (selected_frame))) | 3475 | pane = list1 (Fcons (build_string ("OK"), Qt)); |
| 3476 | { | 3476 | GCPRO1 (pane); |
| 3477 | Lisp_Object pane, menu; | 3477 | menu = Fcons (val, pane); |
| 3478 | struct gcpro gcpro1; | 3478 | Fx_popup_dialog (Qt, menu, Qt); |
| 3479 | pane = list1 (Fcons (build_string ("OK"), Qt)); | 3479 | UNGCPRO; |
| 3480 | GCPRO1 (pane); | 3480 | #else /* !HAVE_MENUS */ |
| 3481 | menu = Fcons (val, pane); | ||
| 3482 | Fx_popup_dialog (Qt, menu, Qt); | ||
| 3483 | UNGCPRO; | ||
| 3484 | return val; | ||
| 3485 | } | ||
| 3486 | #endif /* HAVE_MENUS */ | ||
| 3487 | message3 (val); | 3481 | message3 (val); |
| 3482 | #endif | ||
| 3488 | return val; | 3483 | return val; |
| 3489 | } | 3484 | } |
| 3490 | } | 3485 | } |
diff --git a/src/frame.h b/src/frame.h index 09e4112d3a2..f06b44e836b 100644 --- a/src/frame.h +++ b/src/frame.h | |||
| @@ -1250,9 +1250,6 @@ extern void x_set_tool_bar_lines (struct frame *f, | |||
| 1250 | Lisp_Object oldval); | 1250 | Lisp_Object oldval); |
| 1251 | extern void x_activate_menubar (struct frame *); | 1251 | extern void x_activate_menubar (struct frame *); |
| 1252 | extern void x_real_positions (struct frame *, int *, int *); | 1252 | extern void x_real_positions (struct frame *, int *, int *); |
| 1253 | extern void x_set_menu_bar_lines (struct frame *, | ||
| 1254 | Lisp_Object, | ||
| 1255 | Lisp_Object); | ||
| 1256 | extern void free_frame_menubar (struct frame *); | 1253 | extern void free_frame_menubar (struct frame *); |
| 1257 | extern void x_free_frame_resources (struct frame *); | 1254 | extern void x_free_frame_resources (struct frame *); |
| 1258 | 1255 | ||
diff --git a/src/window.c b/src/window.c index 670369cd322..5103f87a27c 100644 --- a/src/window.c +++ b/src/window.c | |||
| @@ -5540,10 +5540,12 @@ the return value is nil. Otherwise the value is t. */) | |||
| 5540 | if (data->frame_menu_bar_lines | 5540 | if (data->frame_menu_bar_lines |
| 5541 | != previous_frame_menu_bar_lines) | 5541 | != previous_frame_menu_bar_lines) |
| 5542 | { | 5542 | { |
| 5543 | #ifdef HAVE_WINDOW_SYSTEM | ||
| 5543 | if (FRAME_WINDOW_P (f)) | 5544 | if (FRAME_WINDOW_P (f)) |
| 5544 | x_set_menu_bar_lines (f, make_number (data->frame_menu_bar_lines), | 5545 | x_set_menu_bar_lines (f, make_number (data->frame_menu_bar_lines), |
| 5545 | make_number (0)); | 5546 | make_number (0)); |
| 5546 | else /* TTY or MSDOS */ | 5547 | else /* TTY or MSDOS */ |
| 5548 | #endif | ||
| 5547 | set_menu_bar_lines (f, make_number (data->frame_menu_bar_lines), | 5549 | set_menu_bar_lines (f, make_number (data->frame_menu_bar_lines), |
| 5548 | make_number (0)); | 5550 | make_number (0)); |
| 5549 | } | 5551 | } |
| @@ -5743,11 +5745,13 @@ the return value is nil. Otherwise the value is t. */) | |||
| 5743 | #ifdef HAVE_MENUS | 5745 | #ifdef HAVE_MENUS |
| 5744 | if (previous_frame_menu_bar_lines != FRAME_MENU_BAR_LINES (f)) | 5746 | if (previous_frame_menu_bar_lines != FRAME_MENU_BAR_LINES (f)) |
| 5745 | { | 5747 | { |
| 5748 | #ifdef HAVE_WINDOW_SYSTEM | ||
| 5746 | if (FRAME_WINDOW_P (f)) | 5749 | if (FRAME_WINDOW_P (f)) |
| 5747 | x_set_menu_bar_lines (f, | 5750 | x_set_menu_bar_lines (f, |
| 5748 | make_number (previous_frame_menu_bar_lines), | 5751 | make_number (previous_frame_menu_bar_lines), |
| 5749 | make_number (0)); | 5752 | make_number (0)); |
| 5750 | else /* TTY or MSDOS */ | 5753 | else /* TTY or MSDOS */ |
| 5754 | #endif | ||
| 5751 | set_menu_bar_lines (f, make_number (previous_frame_menu_bar_lines), | 5755 | set_menu_bar_lines (f, make_number (previous_frame_menu_bar_lines), |
| 5752 | make_number (0)); | 5756 | make_number (0)); |
| 5753 | } | 5757 | } |