# HG changeset patch # User Stefan Monnier # Date 962806083 0 # Node ID baccf5e9ab70322e83a3414b5421f464a19371fa # Parent 324e0b1b2ac124dcd82a70b6419add0a2372058d * w32menu.c (w32_menu_display_help): * xmenu.c (menu_help_callback): Use show_help_echo. diff -r 324e0b1b2ac1 -r baccf5e9ab70 src/w32menu.c --- a/src/w32menu.c Wed Jul 05 14:05:05 2000 +0000 +++ b/src/w32menu.c Wed Jul 05 14:08:03 2000 +0000 @@ -2158,9 +2158,6 @@ if (get_menu_item_info) { - struct gcpro gcpro1; - extern Lisp_Object Vshow_help_function; - Lisp_Object msg; MENUITEMINFO info; bzero (&info, sizeof (info)); @@ -2168,19 +2165,8 @@ info.fMask = MIIM_DATA; get_menu_item_info (menu, item, FALSE, &info); - msg = info.dwItemData ? build_string ((char *) info.dwItemData) : Qnil; - GCPRO1 (msg); - - if (!NILP (Vshow_help_function)) - call1 (Vshow_help_function, msg); - else if (!MINI_WINDOW_P (XWINDOW (selected_window))) - { - if (STRINGP(msg)) - message3_nolog (msg, XSTRING (msg)->size, STRING_MULTIBYTE (msg)); - else - message (0); - } - UNGCPRO; + show_help_echo (info.dwItemData ? + build_string ((char *) info.dwItemData) : Qnil); } } diff -r 324e0b1b2ac1 -r baccf5e9ab70 src/xmenu.c --- a/src/xmenu.c Wed Jul 05 14:05:05 2000 +0000 +++ b/src/xmenu.c Wed Jul 05 14:08:03 2000 +0000 @@ -2488,24 +2488,7 @@ menu_help_callback (help_string) char *help_string; { - Lisp_Object msg; - extern Lisp_Object Vshow_help_function; - struct gcpro gcpro1; - - msg = help_string ? build_string (help_string) : Qnil; - GCPRO1 (msg); - - if (!NILP (Vshow_help_function)) - call1 (Vshow_help_function, msg); - else if (!MINI_WINDOW_P (XWINDOW (selected_window))) - { - if (STRINGP (msg)) - message3_nolog (msg, XSTRING (msg)->size, STRING_MULTIBYTE (msg)); - else - message (0); - } - - UNGCPRO; + show_help_echo (help_string ? build_string (help_string) : Qnil); }