[Emacs-diffs] Changes to emacs/src/w32menu.c

[Ken Raeburn]

Index: emacs/src/w32menu.c
diff -c emacs/src/w32menu.c:1.57 emacs/src/w32menu.c:1.58
*** emacs/src/w32menu.c:1.57    Thu Jul 11 10:16:14 2002
--- emacs/src/w32menu.c Sun Jul 14 20:00:37 2002
***************
*** 518,524 ****
    enabled = XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE];
    item_string = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME]; 
  
!   if (!NILP (map) && XSTRING (item_string)->data[0] == '@')
      {
        if (!NILP (enabled))
        /* An enabled separate pane. Remember this to handle it later.  */
--- 518,524 ----
    enabled = XVECTOR (item_properties)->contents[ITEM_PROPERTY_ENABLE];
    item_string = XVECTOR (item_properties)->contents[ITEM_PROPERTY_NAME]; 
  
!   if (!NILP (map) && SREF (item_string, 0) == '@')
      {
        if (!NILP (enabled))
        /* An enabled separate pane. Remember this to handle it later.  */
***************
*** 1201,1207 ****
            }
  #endif
          pane_string = (NILP (pane_name)
!                        ? "" : (char *) XSTRING (pane_name)->data);
          /* If there is just one top-level pane, put all its items directly
             under the top-level menu.  */
          if (menu_items_n_panes == 1)
--- 1201,1207 ----
            }
  #endif
          pane_string = (NILP (pane_name)
!                        ? "" : (char *) SDATA (pane_name));
          /* If there is just one top-level pane, put all its items directly
             under the top-level menu.  */
          if (menu_items_n_panes == 1)
***************
*** 1265,1273 ****
          else
            save_wv->contents = wv;
  
!         wv->name = (char *) XSTRING (item_name)->data;
          if (!NILP (descrip))
!           wv->key = (char *) XSTRING (descrip)->data;
          wv->value = 0;
          /* The EMACS_INT cast avoids a warning.  There's no problem
             as long as pointers have enough bits to hold small integers.  */
--- 1265,1273 ----
          else
            save_wv->contents = wv;
  
!         wv->name = (char *) SDATA (item_name);
          if (!NILP (descrip))
!           wv->key = (char *) SDATA (descrip);
          wv->value = 0;
          /* The EMACS_INT cast avoids a warning.  There's no problem
             as long as pointers have enough bits to hold small integers.  */
***************
*** 1448,1454 ****
          string = XVECTOR (items)->contents[i + 1];
          if (NILP (string))
            break;
!         wv->name = (char *) XSTRING (string)->data;
          wv = wv->next;
        }
  
--- 1448,1454 ----
          string = XVECTOR (items)->contents[i + 1];
          if (NILP (string))
            break;
!         wv->name = (char *) SDATA (string);
          wv = wv->next;
        }
  
***************
*** 1471,1477 ****
            break;
  
          wv = xmalloc_widget_value ();
!         wv->name = (char *) XSTRING (string)->data;
          wv->value = 0;
          wv->enabled = 1;
          wv->button_type = BUTTON_TYPE_NONE;
--- 1471,1477 ----
            break;
  
          wv = xmalloc_widget_value ();
!         wv->name = (char *) SDATA (string);
          wv->value = 0;
          wv->enabled = 1;
          wv->button_type = BUTTON_TYPE_NONE;
***************
*** 1662,1668 ****
            }
  #endif
          pane_string = (NILP (pane_name)
!                        ? "" : (char *) XSTRING (pane_name)->data);
          /* If there is just one top-level pane, put all its items directly
             under the top-level menu.  */
          if (menu_items_n_panes == 1)
--- 1662,1668 ----
            }
  #endif
          pane_string = (NILP (pane_name)
!                        ? "" : (char *) SDATA (pane_name));
          /* If there is just one top-level pane, put all its items directly
             under the top-level menu.  */
          if (menu_items_n_panes == 1)
***************
*** 1727,1735 ****
            prev_wv->next = wv;
          else 
            save_wv->contents = wv;
!         wv->name = (char *) XSTRING (item_name)->data;
          if (!NILP (descrip))
!           wv->key = (char *) XSTRING (descrip)->data;
          wv->value = 0;
          /* Use the contents index as call_data, since we are
               restricted to 16-bits.  */
--- 1727,1735 ----
            prev_wv->next = wv;
          else 
            save_wv->contents = wv;
!         wv->name = (char *) SDATA (item_name);
          if (!NILP (descrip))
!           wv->key = (char *) SDATA (descrip);
          wv->value = 0;
          /* Use the contents index as call_data, since we are
               restricted to 16-bits.  */
***************
*** 1773,1779 ****
        if (STRING_MULTIBYTE (title))
        title = ENCODE_SYSTEM (title);
  #endif
!       wv_title->name = (char *) XSTRING (title)->data;
        wv_title->enabled = TRUE;
        wv_title->title = TRUE;
        wv_title->button_type = BUTTON_TYPE_NONE;
--- 1773,1779 ----
        if (STRING_MULTIBYTE (title))
        title = ENCODE_SYSTEM (title);
  #endif
!       wv_title->name = (char *) SDATA (title);
        wv_title->enabled = TRUE;
        wv_title->title = TRUE;
        wv_title->button_type = BUTTON_TYPE_NONE;
***************
*** 1906,1912 ****
      pane_name = XVECTOR (menu_items)->contents[MENU_ITEMS_PANE_NAME];
      prefix = XVECTOR (menu_items)->contents[MENU_ITEMS_PANE_PREFIX];
      pane_string = (NILP (pane_name)
!                  ? "" : (char *) XSTRING (pane_name)->data);  
      prev_wv = xmalloc_widget_value ();
      prev_wv->value = pane_string;
      if (keymaps && !NILP (prefix))
--- 1906,1912 ----
      pane_name = XVECTOR (menu_items)->contents[MENU_ITEMS_PANE_NAME];
      prefix = XVECTOR (menu_items)->contents[MENU_ITEMS_PANE_PREFIX];
      pane_string = (NILP (pane_name)
!                  ? "" : (char *) SDATA (pane_name));  
      prev_wv = xmalloc_widget_value ();
      prev_wv->value = pane_string;
      if (keymaps && !NILP (prefix))
***************
*** 1955,1962 ****
        prev_wv->next = wv;
        wv->name = (char *) button_names[nb_buttons];
        if (!NILP (descrip))
!         wv->key = (char *) XSTRING (descrip)->data;
!       wv->value = (char *) XSTRING (item_name)->data;
        wv->call_data = (void *) &XVECTOR (menu_items)->contents[i];
        wv->enabled = !NILP (enable);
        wv->help = Qnil;
--- 1955,1962 ----
        prev_wv->next = wv;
        wv->name = (char *) button_names[nb_buttons];
        if (!NILP (descrip))
!         wv->key = (char *) SDATA (descrip);
!       wv->value = (char *) SDATA (item_name);
        wv->call_data = (void *) &XVECTOR (menu_items)->contents[i];
        wv->enabled = !NILP (enable);
        wv->help = Qnil;