Commit c22237f7 authored by Kim F. Storm's avatar Kim F. Storm

(Qmouse_fixup_help_message): New var.

(syms_of_keyboard): Intern and staticpro it.
(show_help_echo): Apply mouse-fixup-help-message to help string.
parent f793f885
......@@ -523,6 +523,10 @@ Lisp_Object Qmake_frame_visible;
Lisp_Object Qselect_window;
Lisp_Object Qhelp_echo;
#ifdef HAVE_MOUSE
Lisp_Object Qmouse_fixup_help_message;
#endif
/* Symbols to denote kinds of events. */
Lisp_Object Qfunction_key;
Lisp_Object Qmouse_click;
......@@ -2304,6 +2308,11 @@ show_help_echo (help, window, object, pos, ok_to_overwrite_keystroke_echo)
return;
}
#ifdef HAVE_MOUSE
if (!noninteractive && STRINGP (help))
help = call1 (Qmouse_fixup_help_message, help);
#endif
if (STRINGP (help) || NILP (help))
{
if (!NILP (Vshow_help_function))
......@@ -10875,6 +10884,11 @@ syms_of_keyboard ()
Qmenu_bar = intern ("menu-bar");
staticpro (&Qmenu_bar);
#ifdef HAVE_MOUSE
Qmouse_fixup_help_message = intern ("mouse-fixup-help-message");
staticpro (&Qmouse_fixup_help_message);
#endif
Qabove_handle = intern ("above-handle");
staticpro (&Qabove_handle);
Qhandle = intern ("handle");
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment