diff options
| author | Karoly Lorentey | 2005-04-04 16:43:15 +0000 |
|---|---|---|
| committer | Karoly Lorentey | 2005-04-04 16:43:15 +0000 |
| commit | ee00ea6e18c2aeae86e262fae703f67f4705032a (patch) | |
| tree | 9e7fc6bfb33de2b2f861589a2f7674ad35de85a8 /src/keyboard.c | |
| parent | 4a932511428a2b61ec51deebd6e16ec1efbda800 (diff) | |
| parent | 8c6ef2ca34c444c1dea1f11b999b4b2ec16cdea3 (diff) | |
| download | emacs-ee00ea6e18c2aeae86e262fae703f67f4705032a.tar.gz emacs-ee00ea6e18c2aeae86e262fae703f67f4705032a.zip | |
Merged from miles@gnu.org--gnu-2005 (patch 45-55, 214-231)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-214
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-215
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-216
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-217
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-218
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-219
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-220
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-221
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-222
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-223
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-224
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-225
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-226
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-227
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-228
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-229
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-230
Merge from gnus--rel--5.10
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-231
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-45
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-46
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-47
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-48
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-49
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-50
Update from CVS: texi Makefile.in CVS keyw cruft
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-51
Update from CVS: ChangeLog tweaks
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-52
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-53
Merge from emacs--cvs-trunk--0
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-54
Update from CVS
* miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-55
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-324
Diffstat (limited to 'src/keyboard.c')
| -rw-r--r-- | src/keyboard.c | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index f29a7676d34..39891b1a95d 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -514,6 +514,10 @@ Lisp_Object Qmake_frame_visible; | |||
| 514 | Lisp_Object Qselect_window; | 514 | Lisp_Object Qselect_window; |
| 515 | Lisp_Object Qhelp_echo; | 515 | Lisp_Object Qhelp_echo; |
| 516 | 516 | ||
| 517 | #ifdef HAVE_MOUSE | ||
| 518 | Lisp_Object Qmouse_fixup_help_message; | ||
| 519 | #endif | ||
| 520 | |||
| 517 | /* Symbols to denote kinds of events. */ | 521 | /* Symbols to denote kinds of events. */ |
| 518 | Lisp_Object Qfunction_key; | 522 | Lisp_Object Qfunction_key; |
| 519 | Lisp_Object Qmouse_click; | 523 | Lisp_Object Qmouse_click; |
| @@ -2298,6 +2302,11 @@ show_help_echo (help, window, object, pos, ok_to_overwrite_keystroke_echo) | |||
| 2298 | return; | 2302 | return; |
| 2299 | } | 2303 | } |
| 2300 | 2304 | ||
| 2305 | #ifdef HAVE_MOUSE | ||
| 2306 | if (!noninteractive && STRINGP (help)) | ||
| 2307 | help = call1 (Qmouse_fixup_help_message, help); | ||
| 2308 | #endif | ||
| 2309 | |||
| 2301 | if (STRINGP (help) || NILP (help)) | 2310 | if (STRINGP (help) || NILP (help)) |
| 2302 | { | 2311 | { |
| 2303 | if (!NILP (Vshow_help_function)) | 2312 | if (!NILP (Vshow_help_function)) |
| @@ -11010,6 +11019,11 @@ syms_of_keyboard () | |||
| 11010 | Qmenu_bar = intern ("menu-bar"); | 11019 | Qmenu_bar = intern ("menu-bar"); |
| 11011 | staticpro (&Qmenu_bar); | 11020 | staticpro (&Qmenu_bar); |
| 11012 | 11021 | ||
| 11022 | #ifdef HAVE_MOUSE | ||
| 11023 | Qmouse_fixup_help_message = intern ("mouse-fixup-help-message"); | ||
| 11024 | staticpro (&Qmouse_fixup_help_message); | ||
| 11025 | #endif | ||
| 11026 | |||
| 11013 | Qabove_handle = intern ("above-handle"); | 11027 | Qabove_handle = intern ("above-handle"); |
| 11014 | staticpro (&Qabove_handle); | 11028 | staticpro (&Qabove_handle); |
| 11015 | Qhandle = intern ("handle"); | 11029 | Qhandle = intern ("handle"); |