From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 3 Jul 2010 11:54:21 +0000 (+0300)
Subject: Fix menu bar display on MS-DOS.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~438^2~51^2~81^2~50^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1e6255ae888ffbee3a713c7d7fb41b8d6480ddb4;p=emacs.git

Fix menu bar display on MS-DOS.

 msdos.c (IT_set_frame_parameters): Set menu-bar-lines according
 to menu-bar-mode, if not set in the frame parameters or in
 default-frame-alist.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 68e3d7aae4e..c79c40e3b09 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2010-07-03  Eli Zaretskii  <eliz@gnu.org>
 
+	* msdos.c (IT_set_frame_parameters): Set menu-bar-lines according
+	to menu-bar-mode, if not set in the frame parameters or in
+	default-frame-alist.
+
 	* w32console.c (sys_tputs): Adjust argument list to prototype in
 	term.c.
 
diff --git a/src/msdos.c b/src/msdos.c
index ea604d29992..cca0b2e68b9 100644
--- a/src/msdos.c
+++ b/src/msdos.c
@@ -2098,6 +2098,10 @@ IT_set_frame_parameters (f, alist)
   Lisp_Object frame_bg, frame_fg;
   extern Lisp_Object Qdefault, QCforeground, QCbackground;
   struct tty_display_info *tty = FRAME_TTY (f);
+  extern Lisp_Object Qmenu_bar_lines;
+  extern Lisp_Object Vmenu_bar_mode;
+  int menu_bar_lines_defined =
+    !NILP (Fassq (Qmenu_bar_lines, Vdefault_frame_alist));
 
   /* If we are creating a new frame, begin with the original screen colors
      used for the initial frame.  */
@@ -2144,6 +2148,8 @@ IT_set_frame_parameters (f, alist)
 
       if (EQ (prop, Qreverse))
 	reverse = EQ (val, Qt);
+      else if (!menu_bar_lines_defined && EQ (prop, Qmenu_bar_lines))
+	menu_bar_lines_defined = 1;
     }
 
   need_to_reverse = reverse && !was_reverse;
@@ -2226,6 +2232,18 @@ IT_set_frame_parameters (f, alist)
       store_frame_param (f, prop, val);
     }
 
+  /* If menu-bar-lines is neither in the frame parameters nor in
+     default-frame-alist, set it according to menu-bar-mode.  */
+  if (!menu_bar_lines_defined)
+    {
+      store_frame_param (f, Qmenu_bar_lines,
+			 NILP (Vmenu_bar_mode)
+			 ? make_number (0) : make_number (1));
+      if (tty->termscript)
+	fprintf (tty->termscript, "<MENU BAR LINES DEFAULTED: %d\n",
+		 !NILP (Vmenu_bar_mode));
+    }
+
   /* If they specified "reverse", but not the colors, we need to swap
      the current frame colors.  */
   if (need_to_reverse)