emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/src/w32menu.c [emacs-unicode-2]
Date: Mon, 28 Jun 2004 03:55:15 -0400

Index: emacs/src/w32menu.c
diff -c emacs/src/w32menu.c:1.65.2.1 emacs/src/w32menu.c:1.65.2.2
*** emacs/src/w32menu.c:1.65.2.1        Fri Apr 16 12:50:50 2004
--- emacs/src/w32menu.c Mon Jun 28 07:29:24 2004
***************
*** 2225,2233 ****
          /* Set help string for menu item.  Leave it as a Lisp_Object
             until it is ready to be displayed, since GC can happen while
             menus are active.  */
!         if (wv->help)
!           info.dwItemData = (DWORD) wv->help;
! 
          if (wv->button_type == BUTTON_TYPE_RADIO)
            {
              /* CheckMenuRadioItem allows us to differentiate TOGGLE and
--- 2225,2236 ----
          /* Set help string for menu item.  Leave it as a Lisp_Object
             until it is ready to be displayed, since GC can happen while
             menus are active.  */
!         if (!NILP (wv->help))
! #ifdef USE_LISP_UNION_TYPE
!           info.dwItemData = (DWORD) (wv->help).i;
! #else
!           info.dwItemData = (DWORD) (wv->help);
! #endif
          if (wv->button_type == BUTTON_TYPE_RADIO)
            {
              /* CheckMenuRadioItem allows us to differentiate TOGGLE and
***************
*** 2307,2313 ****
--- 2310,2321 ----
          info.fMask = MIIM_DATA;
          get_menu_item_info (menu, item, FALSE, &info);
  
+ #ifdef USE_LISP_UNION_TYPE
+         help = info.dwItemData ? (Lisp_Object) ((EMACS_INT) info.dwItemData)
+                                : Qnil;
+ #else
          help = info.dwItemData ? (Lisp_Object) info.dwItemData : Qnil;
+ #endif
        }
  
        /* Store the help echo in the keyboard buffer as the X toolkit




reply via email to

[Prev in Thread] Current Thread [Next in Thread]