(Fframe_parameters): Fix Lisp_Object vs. int problems.

1 files changed, 6 insertions, 2 deletions

diff --git a/src/frame.c b/src/frame.c
index 07378f8d3d..8998dd8eb9 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;
 }