This commit was generated by cvs2svn to compensate for changes in r5670,
[chise/xemacs-chise.git.1] / src / menubar-gtk.c
index 4af6659..8d2dac9 100644 (file)
@@ -1216,21 +1216,11 @@ static void
 gtk_popup_menu (Lisp_Object menu_desc, Lisp_Object event)
 {
   struct Lisp_Event *eev = NULL;
-  GtkWidget *widget = NULL;
-  GtkWidget *menu = NULL;
-  gpointer id = NULL;
-
-  /* Do basic error checking first... */
-  if (SYMBOLP (menu_desc))
-    menu_desc = Fsymbol_value (menu_desc);
-  CHECK_CONS (menu_desc);
-  CHECK_STRING (XCAR (menu_desc));
-
-  /* Now lets get down to business... */
-  widget = menu_descriptor_to_widget (menu_desc);
-  menu = GTK_MENU_ITEM (widget)->submenu;
+  GtkWidget *widget = menu_descriptor_to_widget (menu_desc);
+  GtkWidget *menu = GTK_MENU_ITEM (widget)->submenu;
+  gpointer id = gtk_object_get_data (GTK_OBJECT (widget), XEMACS_MENU_GUIID_TAG);
+
   gtk_widget_set_name (widget, "XEmacsPopupMenu");
-  id = gtk_object_get_data (GTK_OBJECT (widget), XEMACS_MENU_GUIID_TAG);
 
   __activate_menu (GTK_MENU_ITEM (widget), id);