From ae73dc1c6622f6578366b8e4906a33dbbb1e85c8 Mon Sep 17 00:00:00 2001
From: Kenichi Handa <handa@m17n.org>
Date: Wed, 29 Jan 2003 13:12:46 +0000
Subject: [PATCH] (set_cursor_from_row): Pay attention to string display
 properties.

---
 src/xdisp.c | 64 ++++++++++++++++++++++++++++++++++++++++++++++++++---
 1 file changed, 61 insertions(+), 3 deletions(-)

diff --git a/src/xdisp.c b/src/xdisp.c
index 009074ede9d..851e1984cc7 100644
--- a/src/xdisp.c
+++ b/src/xdisp.c
@@ -9460,6 +9460,14 @@ set_cursor_from_row (w, row, matrix, delta, delta_bytes, dy, dvpos)
 {
   struct glyph *glyph = row->glyphs[TEXT_AREA];
   struct glyph *end = glyph + row->used[TEXT_AREA];
+  /* The first glyph that starts a sequence of glyphs from string.  */
+  struct glyph *string_start;
+  /* The X coordinate of string_start.  */
+  int string_start_x;
+  /* The last known character position.  */
+  int last_pos = MATRIX_ROW_START_CHARPOS (row) + delta;
+  /* The last known character position before string_start.  */
+  int string_before_pos;
   int x = row->x;
   int pt_old = PT - delta;
 
@@ -9475,13 +9483,63 @@ set_cursor_from_row (w, row, matrix, delta, delta_bytes, dy, dvpos)
 	++glyph;
       }
 
+  string_start = NULL;
   while (glyph < end
 	 && !INTEGERP (glyph->object)
 	 && (!BUFFERP (glyph->object)
-	     || glyph->charpos < pt_old))
+	     || (last_pos = glyph->charpos) < pt_old))
     {
-      x += glyph->pixel_width;
-      ++glyph;
+      if (! STRINGP (glyph->object))
+	{
+	  string_start = NULL;
+	  x += glyph->pixel_width;
+	  ++glyph;
+	}
+      else
+	{
+	  string_before_pos = last_pos;
+	  string_start = glyph;
+	  string_start_x = x;
+	  /* Skip all glyphs from string.  */
+	  do
+	    {
+	      x += glyph->pixel_width;
+	      ++glyph;
+	    }
+	  while (glyph < end && STRINGP (glyph->object));
+	}
+    }
+
+  if (string_start
+      && (glyph == end || !BUFFERP (glyph->object) || last_pos > pt_old))
+    {
+      /* We may have skipped over point because the previous glyphs
+	 are from string.  As there's no easy way to know the
+	 character position of the current glyph, find the correct
+	 glyph on point by scanning from string_start again.  */
+      Lisp_Object pos, limit;
+
+      limit = make_number (MATRIX_ROW_END_CHARPOS (row) + delta);
+      glyph = string_start;
+      x = string_start_x;
+      pos = make_number (string_buffer_position (w, glyph->object,
+						 string_before_pos));
+      pos = Fnext_single_char_property_change (pos, Qdisplay, Qnil, limit);
+      while (XINT (pos) <= pt_old)
+	{
+	  /* Skip glyphs from the same string.  */
+	  do
+	    {
+	      x += glyph->pixel_width;
+	      ++glyph;
+	    }
+	  while (glyph < end
+		 && EQ (glyph->object, string_start->object));
+	  if (glyph == end || !STRINGP (glyph->object))
+	    break;
+	  string_start = glyph;
+	  pos = Fnext_single_char_property_change (pos, Qdisplay, Qnil, limit);
+	}
     }
 
   w->cursor.hpos = glyph - row->glyphs[TEXT_AREA];
-- 
2.39.5