diff options
| author | Stefan Monnier | 2000-07-05 13:41:00 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-07-05 13:41:00 +0000 |
| commit | b7e804134a3e947c3decbb0a6b02c092be3427f7 (patch) | |
| tree | dee5fd374c4bbba0efdfb19f23f874c71ba655ea /src/xterm.c | |
| parent | 969f7e79eb7dd72f72e34a308ff96e427daacaf4 (diff) | |
| download | emacs-b7e804134a3e947c3decbb0a6b02c092be3427f7.tar.gz emacs-b7e804134a3e947c3decbb0a6b02c092be3427f7.zip | |
* xterm.c (note_mode_line_highlight, note_mouse_highlight)
(note_tool_bar_highlight, XTread_socket):
* msdos.c (IT_note_mode_line_highlight, IT_note_mouse_highlight)
(dos_rawgetc):
* w32term.c (note_mode_line_highlight, note_mouse_highlight)
(note_tool_bar_highlight, w32_read_socket):
Do not gratuitously ignore non-string `help-echo' properties.
Diffstat (limited to 'src/xterm.c')
| -rw-r--r-- | src/xterm.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/xterm.c b/src/xterm.c index 743c7f8934d..bc13fb98ba2 100644 --- a/src/xterm.c +++ b/src/xterm.c | |||
| @@ -6314,7 +6314,7 @@ note_mode_line_highlight (w, x, mode_line_p) | |||
| 6314 | setting the global variable help_echo to the help string. */ | 6314 | setting the global variable help_echo to the help string. */ |
| 6315 | help = Fget_text_property (make_number (glyph->charpos), | 6315 | help = Fget_text_property (make_number (glyph->charpos), |
| 6316 | Qhelp_echo, glyph->object); | 6316 | Qhelp_echo, glyph->object); |
| 6317 | if (STRINGP (help)) | 6317 | if (!NILP (help)) |
| 6318 | help_echo = help; | 6318 | help_echo = help; |
| 6319 | 6319 | ||
| 6320 | /* Change the mouse pointer according to what is under X/Y. */ | 6320 | /* Change the mouse pointer according to what is under X/Y. */ |
| @@ -6571,11 +6571,11 @@ note_mouse_highlight (f, x, y) | |||
| 6571 | 6571 | ||
| 6572 | /* Check overlays first. */ | 6572 | /* Check overlays first. */ |
| 6573 | help = Qnil; | 6573 | help = Qnil; |
| 6574 | for (i = 0; i < noverlays && !STRINGP (help); ++i) | 6574 | for (i = 0; i < noverlays && NILP (help); ++i) |
| 6575 | help = Foverlay_get (overlay_vec[i], Qhelp_echo); | 6575 | help = Foverlay_get (overlay_vec[i], Qhelp_echo); |
| 6576 | 6576 | ||
| 6577 | /* Try text properties. */ | 6577 | /* Try text properties. */ |
| 6578 | if (!STRINGP (help) | 6578 | if (NILP (help) |
| 6579 | && ((STRINGP (glyph->object) | 6579 | && ((STRINGP (glyph->object) |
| 6580 | && glyph->charpos >= 0 | 6580 | && glyph->charpos >= 0 |
| 6581 | && glyph->charpos < XSTRING (glyph->object)->size) | 6581 | && glyph->charpos < XSTRING (glyph->object)->size) |
| @@ -6585,7 +6585,7 @@ note_mouse_highlight (f, x, y) | |||
| 6585 | help = Fget_text_property (make_number (glyph->charpos), | 6585 | help = Fget_text_property (make_number (glyph->charpos), |
| 6586 | Qhelp_echo, glyph->object); | 6586 | Qhelp_echo, glyph->object); |
| 6587 | 6587 | ||
| 6588 | if (STRINGP (help)) | 6588 | if (!NILP (help)) |
| 6589 | help_echo = help; | 6589 | help_echo = help; |
| 6590 | } | 6590 | } |
| 6591 | 6591 | ||
| @@ -6818,7 +6818,7 @@ note_tool_bar_highlight (f, x, y) | |||
| 6818 | XTread_socket does the rest. */ | 6818 | XTread_socket does the rest. */ |
| 6819 | help_echo = (XVECTOR (f->current_tool_bar_items) | 6819 | help_echo = (XVECTOR (f->current_tool_bar_items) |
| 6820 | ->contents[prop_idx + TOOL_BAR_ITEM_HELP]); | 6820 | ->contents[prop_idx + TOOL_BAR_ITEM_HELP]); |
| 6821 | if (!STRINGP (help_echo)) | 6821 | if (NILP (help_echo)) |
| 6822 | help_echo = (XVECTOR (f->current_tool_bar_items) | 6822 | help_echo = (XVECTOR (f->current_tool_bar_items) |
| 6823 | ->contents[prop_idx + TOOL_BAR_ITEM_CAPTION]); | 6823 | ->contents[prop_idx + TOOL_BAR_ITEM_CAPTION]); |
| 6824 | } | 6824 | } |
| @@ -9773,8 +9773,8 @@ XTread_socket (sd, bufp, numchars, expected) | |||
| 9773 | 9773 | ||
| 9774 | /* If the contents of the global variable help_echo | 9774 | /* If the contents of the global variable help_echo |
| 9775 | has changed, generate a HELP_EVENT. */ | 9775 | has changed, generate a HELP_EVENT. */ |
| 9776 | if (STRINGP (help_echo) | 9776 | if (!NILP (help_echo) |
| 9777 | || STRINGP (previous_help_echo)) | 9777 | || !NILP (previous_help_echo)) |
| 9778 | { | 9778 | { |
| 9779 | Lisp_Object frame; | 9779 | Lisp_Object frame; |
| 9780 | 9780 | ||