From 16a3738c96038f92866676208471bdedda8fed3a Mon Sep 17 00:00:00 2001
From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 19 Sep 1994 00:16:58 +0000
Subject: [PATCH] (Fframe_parameters): Fix Lisp_Object vs. int problems.

---
 src/frame.c | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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;
 }
 
-- 
2.39.5