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/w32term.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/w32term.c')
| -rw-r--r-- | src/w32term.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/w32term.c b/src/w32term.c index 46025c6cd1f..3a8cfb8bba6 100644 --- a/src/w32term.c +++ b/src/w32term.c | |||
| @@ -5801,7 +5801,7 @@ note_mode_line_highlight (w, x, mode_line_p) | |||
| 5801 | setting the global variable help_echo to the help string. */ | 5801 | setting the global variable help_echo to the help string. */ |
| 5802 | help = Fget_text_property (make_number (glyph->charpos), | 5802 | help = Fget_text_property (make_number (glyph->charpos), |
| 5803 | Qhelp_echo, glyph->object); | 5803 | Qhelp_echo, glyph->object); |
| 5804 | if (STRINGP (help)) | 5804 | if (!NILP (help)) |
| 5805 | help_echo = help; | 5805 | help_echo = help; |
| 5806 | 5806 | ||
| 5807 | /* Change the mouse pointer according to what is under X/Y. */ | 5807 | /* Change the mouse pointer according to what is under X/Y. */ |
| @@ -6060,11 +6060,11 @@ note_mouse_highlight (f, x, y) | |||
| 6060 | 6060 | ||
| 6061 | /* Check overlays first. */ | 6061 | /* Check overlays first. */ |
| 6062 | help = Qnil; | 6062 | help = Qnil; |
| 6063 | for (i = 0; i < noverlays && !STRINGP (help); ++i) | 6063 | for (i = 0; i < noverlays && NILP (help); ++i) |
| 6064 | help = Foverlay_get (overlay_vec[i], Qhelp_echo); | 6064 | help = Foverlay_get (overlay_vec[i], Qhelp_echo); |
| 6065 | 6065 | ||
| 6066 | /* Try text properties. */ | 6066 | /* Try text properties. */ |
| 6067 | if (!STRINGP (help) | 6067 | if (NILP (help) |
| 6068 | && ((STRINGP (glyph->object) | 6068 | && ((STRINGP (glyph->object) |
| 6069 | && glyph->charpos >= 0 | 6069 | && glyph->charpos >= 0 |
| 6070 | && glyph->charpos < XSTRING (glyph->object)->size) | 6070 | && glyph->charpos < XSTRING (glyph->object)->size) |
| @@ -6074,7 +6074,7 @@ note_mouse_highlight (f, x, y) | |||
| 6074 | help = Fget_text_property (make_number (glyph->charpos), | 6074 | help = Fget_text_property (make_number (glyph->charpos), |
| 6075 | Qhelp_echo, glyph->object); | 6075 | Qhelp_echo, glyph->object); |
| 6076 | 6076 | ||
| 6077 | if (STRINGP (help)) | 6077 | if (!NILP (help)) |
| 6078 | help_echo = help; | 6078 | help_echo = help; |
| 6079 | } | 6079 | } |
| 6080 | 6080 | ||
| @@ -6306,7 +6306,7 @@ note_tool_bar_highlight (f, x, y) | |||
| 6306 | w32_read_socket does the rest. */ | 6306 | w32_read_socket does the rest. */ |
| 6307 | help_echo = (XVECTOR (f->current_tool_bar_items) | 6307 | help_echo = (XVECTOR (f->current_tool_bar_items) |
| 6308 | ->contents[prop_idx + TOOL_BAR_ITEM_HELP]); | 6308 | ->contents[prop_idx + TOOL_BAR_ITEM_HELP]); |
| 6309 | if (!STRINGP (help_echo)) | 6309 | if (NILP (help_echo)) |
| 6310 | help_echo = (XVECTOR (f->current_tool_bar_items) | 6310 | help_echo = (XVECTOR (f->current_tool_bar_items) |
| 6311 | ->contents[prop_idx + TOOL_BAR_ITEM_CAPTION]); | 6311 | ->contents[prop_idx + TOOL_BAR_ITEM_CAPTION]); |
| 6312 | } | 6312 | } |
| @@ -7610,8 +7610,8 @@ w32_read_socket (sd, bufp, numchars, expected) | |||
| 7610 | 7610 | ||
| 7611 | /* If the contents of the global variable help_echo | 7611 | /* If the contents of the global variable help_echo |
| 7612 | has changed, generate a HELP_EVENT. */ | 7612 | has changed, generate a HELP_EVENT. */ |
| 7613 | if (STRINGP (help_echo) | 7613 | if (!NILP (help_echo) |
| 7614 | || STRINGP (previous_help_echo)) | 7614 | || !NILP (previous_help_echo)) |
| 7615 | { | 7615 | { |
| 7616 | Lisp_Object frame; | 7616 | Lisp_Object frame; |
| 7617 | 7617 | ||