# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 779933818 0
# Node ID af3ff2dbaddd2ffc9e7ac2011562e27ce7571baf
# Parent  03597c3eb63b06ed6a01a4b538a27ff38178e4b9
(Fframe_parameters): Fix Lisp_Object vs. int problems.

diff -r 03597c3eb63b -r af3ff2dbaddd src/frame.c
--- a/src/frame.c	Mon Sep 19 00:16:13 1994 +0000
+++ b/src/frame.c	Mon Sep 19 00:16:58 1994 +0000
@@ -1429,8 +1429,12 @@
     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;
 }