Mercurial > emacs
changeset 61163:d4aefe343943
(Qmouse_fixup_help_message): New var.
(syms_of_keyboard): Intern and staticpro it.
(show_help_echo): Apply mouse-fixup-help-message to help string.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Thu, 31 Mar 2005 10:11:14 +0000 |
| parents | a7d2fa456335 |
| children | 5a8493f7c2b8 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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");