2 files changed, 9 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 69d273a6338..9fed32b0246 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,4 +1,4 @@
-2002-05-23  Kim F. Storm  <no-spam@cua.dk>
+2002-05-23  Kim F. Storm  <storm@cua.dk>
 
         * xterm.c (x_write_glyphs): Clear phys_cursor_on_p if current
         phys_cursor's hpos is overwritten.  This is still not completely
diff --git a/src/xterm.c b/src/xterm.c
index c87d8981daf..c98d278c771 100644
--- a/src/xterm.c
+++ b/src/xterm.c
@@ -5331,6 +5331,14 @@ x_write_glyphs (start, len)
                      hpos, hpos + len,
                      DRAW_NORMAL_TEXT, 0);
 
+  /* Invalidate old phys cursor if the glyph at its hpos is redrawn.  */
+  if (updated_area == TEXT_AREA
+      && updated_window->phys_cursor_on_p
+      && updated_window->phys_cursor.vpos == output_cursor.vpos
+      && updated_window->phys_cursor.hpos >= hpos
+      && updated_window->phys_cursor.hpos < hpos + len)
+    updated_window->phys_cursor_on_p = 0;
+
   UNBLOCK_INPUT;
   
   /* Advance the output cursor.  */