From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 19 Sep 1994 00:16:58 +0000 (+0000)
Subject: (Fframe_parameters): Fix Lisp_Object vs. int problems.
X-Git-Tag: emacs-19.34~6950
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16a3738c96038f92866676208471bdedda8fed3a;p=emacs.git

(Fframe_parameters): Fix Lisp_Object vs. int problems.
---

diff --git a/src/frame.c b/src/frame.c
index 07378f8d3d7..8998dd8eb91 100644
--- a/src/frame.c
+++ b/src/frame.c
@@ -1429,8 +1429,12 @@ If FRAME is omitted, return information on the currently selected frame.")
     x_report_frame_params (f, &alist);
   else
 #endif
-    /* This ought to be correct in f->param_alist for an X frame.  */
-    store_in_alist (&alist, Qmenu_bar_lines, FRAME_MENU_BAR_LINES (f));
+    {
+      /* This ought to be correct in f->param_alist for an X frame.  */
+      Lisp_Object lines;
+      XFASTINT (lines) = FRAME_MENU_BAR_LINES (f);
+      store_in_alist (&alist, Qmenu_bar_lines, lines);
+    }
   return alist;
 }