[Emacs-diffs] Changes to emacs/src/keyboard.c

[Kim F . Storm]

Index: emacs/src/keyboard.c
diff -c emacs/src/keyboard.c:1.816 emacs/src/keyboard.c:1.817
*** emacs/src/keyboard.c:1.816  Sat Mar 19 16:36:01 2005
--- emacs/src/keyboard.c        Thu Mar 31 10:11:14 2005
***************
*** 523,528 ****
--- 523,532 ----
  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,2309 ****
--- 2308,2318 ----
        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,10880 ****
--- 10884,10894 ----
    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");