diff options
| author | Gerd Moellmann | 2000-07-21 15:38:39 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-07-21 15:38:39 +0000 |
| commit | 743934dbc8ff5151ebca1725e5c6c1606f4f0505 (patch) | |
| tree | b1b18a7511d767fcefe640191c6cc189cb2f2c48 /src/xterm.c | |
| parent | 5b2ec2d060b02041604130dc84b42e517bc84796 (diff) | |
| download | emacs-743934dbc8ff5151ebca1725e5c6c1606f4f0505.tar.gz emacs-743934dbc8ff5151ebca1725e5c6c1606f4f0505.zip | |
(note_mouse_highlight): If help-echo was found in an
overlay, use that overlay as the object in which the help was
found.
Diffstat (limited to 'src/xterm.c')
| -rw-r--r-- | src/xterm.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/xterm.c b/src/xterm.c index 966459952c5..309ed552b1e 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -6626,18 +6626,21 @@ note_mouse_highlight (f, x, y) | |||
| 6626 | 6626 | ||
| 6627 | /* Look for a `help-echo' property. */ | 6627 | /* Look for a `help-echo' property. */ |
| 6628 | { | 6628 | { |
| 6629 | Lisp_Object help, object, position; | 6629 | Lisp_Object help, overlay; |
| 6630 | 6630 | ||
| 6631 | /* Check overlays first. */ | 6631 | /* Check overlays first. */ |
| 6632 | help = Qnil; | 6632 | help = Qnil; |
| 6633 | for (i = 0; i < noverlays && NILP (help); ++i) | 6633 | for (i = 0; i < noverlays && NILP (help); ++i) |
| 6634 | help = Foverlay_get (overlay_vec[i], Qhelp_echo); | 6634 | { |
| 6635 | overlay = overlay_vec[i]; | ||
| 6636 | help = Foverlay_get (overlay, Qhelp_echo); | ||
| 6637 | } | ||
| 6635 | 6638 | ||
| 6636 | if (!NILP (help)) | 6639 | if (!NILP (help)) |
| 6637 | { | 6640 | { |
| 6638 | help_echo = help; | 6641 | help_echo = help; |
| 6639 | help_echo_window = window; | 6642 | help_echo_window = window; |
| 6640 | help_echo_object = w->buffer; | 6643 | help_echo_object = overlay; |
| 6641 | help_echo_pos = pos; | 6644 | help_echo_pos = pos; |
| 6642 | } | 6645 | } |
| 6643 | else | 6646 | else |