(Fx_popup_menu): Don't use Lisp_Object as integer.
authorKarl Heuer <kwzh@gnu.org>
Thu, 10 Apr 1997 21:19:16 +0000 (21:19 +0000)
committerKarl Heuer <kwzh@gnu.org>
Thu, 10 Apr 1997 21:19:16 +0000 (21:19 +0000)
(set_frame_menubar): Likewise.

src/xmenu.c

index 819f81e..a3b5d06 100644 (file)
@@ -856,8 +856,10 @@ cached information about equivalent key sequences.")
          CHECK_LIVE_WINDOW (window, 0);
          f = XFRAME (WINDOW_FRAME (XWINDOW (window)));
 
-         xpos = (FONT_WIDTH (f->output_data.x->font) * XWINDOW (window)->left);
-         ypos = (f->output_data.x->line_height * XWINDOW (window)->top);
+         xpos = (FONT_WIDTH (f->output_data.x->font)
+                 * XFASTINT (XWINDOW (window)->left));
+         ypos = (f->output_data.x->line_height
+                 * XFASTINT (XWINDOW (window)->top));
        }
       else
        /* ??? Not really clean; should be CHECK_WINDOW_OR_FRAME,
@@ -1733,7 +1735,7 @@ set_frame_menubar (f, first_time, deep_p)
 
       for (i = 0; i < previous_menu_items_used; i++)
        if (menu_items_used == i
-           || (previous_items[i] != XVECTOR (menu_items)->contents[i]))
+           || (!EQ (previous_items[i], XVECTOR (menu_items)->contents[i])))
          break;
       if (i == menu_items_used && i == previous_menu_items_used && i != 0)
        {