aboutsummaryrefslogtreecommitdiffstats
path: root/src/w32term.c
diff options
context:
space:
mode:
authorStefan Monnier2000-07-05 13:41:00 +0000
committerStefan Monnier2000-07-05 13:41:00 +0000
commitb7e804134a3e947c3decbb0a6b02c092be3427f7 (patch)
treedee5fd374c4bbba0efdfb19f23f874c71ba655ea /src/w32term.c
parent969f7e79eb7dd72f72e34a308ff96e427daacaf4 (diff)
downloademacs-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.c14
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