comparison src/xterm.c @ 37726:1d2bd2c606e8

(note_mouse_highlight): Avoid changing the mouse pointer shape when show_mouse_face has already done it.
author Gerd Moellmann <gerd@gnu.org>
date Mon, 14 May 2001 14:54:29 +0000
parents 4a800a01388b
children db3e294b4ce2
comparison
equal deleted inserted replaced
37725:7e55768d52fd 37726:1d2bd2c606e8
6995 = face_at_buffer_position (w, pos, 0, 0, 6995 = face_at_buffer_position (w, pos, 0, 0,
6996 &ignore, pos + 1, 1); 6996 &ignore, pos + 1, 1);
6997 6997
6998 /* Display it as active. */ 6998 /* Display it as active. */
6999 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE); 6999 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);
7000 cursor = None;
7000 } 7001 }
7001 /* Handle the text property case. */ 7002 /* Handle the text property case. */
7002 else if (!NILP (mouse_face) && BUFFERP (object)) 7003 else if (!NILP (mouse_face) && BUFFERP (object))
7003 { 7004 {
7004 /* Find the range of text around this char that 7005 /* Find the range of text around this char that
7036 = face_at_buffer_position (w, pos, 0, 0, 7037 = face_at_buffer_position (w, pos, 0, 0,
7037 &ignore, pos + 1, 1); 7038 &ignore, pos + 1, 1);
7038 7039
7039 /* Display it as active. */ 7040 /* Display it as active. */
7040 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE); 7041 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);
7042 cursor = None;
7041 } 7043 }
7042 else if (!NILP (mouse_face) && STRINGP (object)) 7044 else if (!NILP (mouse_face) && STRINGP (object))
7043 { 7045 {
7044 Lisp_Object b, e; 7046 Lisp_Object b, e;
7045 int ignore; 7047 int ignore;
7067 dpyinfo->mouse_face_window = window; 7069 dpyinfo->mouse_face_window = window;
7068 dpyinfo->mouse_face_face_id 7070 dpyinfo->mouse_face_face_id
7069 = face_at_string_position (w, object, pos, 0, 0, 0, &ignore, 7071 = face_at_string_position (w, object, pos, 0, 0, 0, &ignore,
7070 glyph->face_id, 1); 7072 glyph->face_id, 1);
7071 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE); 7073 show_mouse_face (dpyinfo, DRAW_MOUSE_FACE);
7074 cursor = None;
7072 } 7075 }
7073 } 7076 }
7074 7077
7075 /* Look for a `help-echo' property. */ 7078 /* Look for a `help-echo' property. */
7076 { 7079 {