mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-30 19:53:09 +00:00
Code Issues Releases Activity

(note_mouse_highlight): If help-echo was found in an

Browse Source 
overlay, use that overlay as the object in which the help was
found.
This commit is contained in:
Gerd Moellmann 2000-07-21 15:38:39 +00:00
parent 5b2ec2d060
commit 743934dbc8
2 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/ChangeLog
View File

@ -1,5 +1,11 @@
2000-07-21 Gerd Moellmann <gerd@gnu.org>
* keyboard.c (show_help_echo, gen_help_event): Extend comments.
* xterm.c (note_mouse_highlight): If help-echo was found in an
overlay, use that overlay as the object in which the help was
found.
* window.c (foreach_window_1): Fix typo reversing an if-condition.
* window.c (foreach_window): Instead of a fake variable argument

9
src/xterm.c
View File

@ -6626,18 +6626,21 @@ note_mouse_highlight (f, x, y)
/* Look for a `help-echo' property. */
{
Lisp_Object help, object, position;
Lisp_Object help, overlay;
/* Check overlays first. */
help = Qnil;
for (i = 0; i < noverlays && NILP (help); ++i)
help = Foverlay_get (overlay_vec[i], Qhelp_echo);
{
overlay = overlay_vec[i];
help = Foverlay_get (overlay, Qhelp_echo);
}
if (!NILP (help))
{
help_echo = help;
help_echo_window = window;
help_echo_object = w->buffer;
help_echo_object = overlay;
help_echo_pos = pos;
}
else