aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorEli Zaretskii2013-09-30 19:25:08 +0300
committerEli Zaretskii2013-09-30 19:25:08 +0300
commit6509f7727e1077ab60e24c3f077ff06c3cadb2d5 (patch)
tree897f1b7a4e1be422017e0ec9fe8ec7343e3e616e /src
parentbdaed46f365f1b6c6222f572cd2c4c9574617ea5 (diff)
downloademacs-6509f7727e1077ab60e24c3f077ff06c3cadb2d5.tar.gz
emacs-6509f7727e1077ab60e24c3f077ff06c3cadb2d5.zip
Fix message-box and avoid compilation warnings.
Diffstat (limited to 'src')
-rw-r--r--src/editfns.c25
-rw-r--r--src/frame.h3
-rw-r--r--src/window.c4
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);
1251extern void x_activate_menubar (struct frame *); 1251extern void x_activate_menubar (struct frame *);
1252extern void x_real_positions (struct frame *, int *, int *); 1252extern void x_real_positions (struct frame *, int *, int *);
1253extern void x_set_menu_bar_lines (struct frame *,
1254 Lisp_Object,
1255 Lisp_Object);
1256extern void free_frame_menubar (struct frame *); 1253extern void free_frame_menubar (struct frame *);
1257extern void x_free_frame_resources (struct frame *); 1254extern 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 }