523 |
Lisp_Object Qselect_window; |
Lisp_Object Qselect_window; |
524 |
Lisp_Object Qhelp_echo; |
Lisp_Object Qhelp_echo; |
525 |
|
|
526 |
|
#ifdef HAVE_MOUSE |
527 |
|
Lisp_Object Qmouse_fixup_help_message; |
528 |
|
#endif |
529 |
|
|
530 |
/* Symbols to denote kinds of events. */ |
/* Symbols to denote kinds of events. */ |
531 |
Lisp_Object Qfunction_key; |
Lisp_Object Qfunction_key; |
532 |
Lisp_Object Qmouse_click; |
Lisp_Object Qmouse_click; |
2308 |
return; |
return; |
2309 |
} |
} |
2310 |
|
|
2311 |
|
#ifdef HAVE_MOUSE |
2312 |
|
if (!noninteractive && STRINGP (help)) |
2313 |
|
help = call1 (Qmouse_fixup_help_message, help); |
2314 |
|
#endif |
2315 |
|
|
2316 |
if (STRINGP (help) || NILP (help)) |
if (STRINGP (help) || NILP (help)) |
2317 |
{ |
{ |
2318 |
if (!NILP (Vshow_help_function)) |
if (!NILP (Vshow_help_function)) |
10884 |
Qmenu_bar = intern ("menu-bar"); |
Qmenu_bar = intern ("menu-bar"); |
10885 |
staticpro (&Qmenu_bar); |
staticpro (&Qmenu_bar); |
10886 |
|
|
10887 |
|
#ifdef HAVE_MOUSE |
10888 |
|
Qmouse_fixup_help_message = intern ("mouse-fixup-help-message"); |
10889 |
|
staticpro (&Qmouse_fixup_help_message); |
10890 |
|
#endif |
10891 |
|
|
10892 |
Qabove_handle = intern ("above-handle"); |
Qabove_handle = intern ("above-handle"); |
10893 |
staticpro (&Qabove_handle); |
staticpro (&Qabove_handle); |
10894 |
Qhandle = intern ("handle"); |
Qhandle = intern ("handle"); |