# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1112263874 0
# Node ID d4aefe34394341282f32fb64748fbfc862a75b3f
# Parent  a7d2fa456335ef7ba8798713610071e9aca5b2d2
(Qmouse_fixup_help_message): New var.
(syms_of_keyboard): Intern and staticpro it.
(show_help_echo): Apply mouse-fixup-help-message to help string.

diff -r a7d2fa456335 -r d4aefe343943 src/keyboard.c
--- a/src/keyboard.c	Thu Mar 31 10:10:59 2005 +0000
+++ b/src/keyboard.c	Thu Mar 31 10:11:14 2005 +0000
@@ -523,6 +523,10 @@
 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 @@
 	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 @@
   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");