From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Wed, 26 Mar 2008 20:46:47 +0000 (+0000)
Subject: (check_display_width): New fun.
X-Git-Tag: emacs-pretest-23.0.90~6884
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=80e3db569f72e628b8fc999d39833dd4fdfca8d1;p=emacs.git

(check_display_width): New fun.
(scan_for_column): Use it.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 52aeaf130a1..d51a59e1031 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2008-03-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+	* indent.c (check_display_width): New fun.
+	(scan_for_column): Use it.
+
 	* data.c (syms_of_data): Mark most-positive-fixnum and
 	most-negative-fixnum as constants.
 
diff --git a/src/indent.c b/src/indent.c
index b4a47782e3e..5480cae2489 100644
--- a/src/indent.c
+++ b/src/indent.c
@@ -504,6 +504,47 @@ current_column ()
   return col;
 }
 
+extern Lisp_Object Qspace, QCwidth, QCalign_to;
+
+/* Check the presence of a display property and compute its width.
+   If a property was found and its width was found as well, return
+   its width (>= 0) and set the position of the end of the property
+   in ENDPOS.
+   Otherwise just return -1.  */
+static int
+check_display_width (EMACS_INT pos, EMACS_INT col, EMACS_INT *endpos)
+{
+  Lisp_Object val, overlay;
+
+  if (CONSP (val = get_char_property_and_overlay
+	     (make_number (pos), Qdisplay, Qnil, &overlay))
+      && EQ (Qspace, XCAR (val)))
+    { /* FIXME: Use calc_pixel_width_or_height, as in term.c.  */
+      Lisp_Object plist = XCDR (val), prop;
+      int width = -1;
+
+      if ((prop = Fplist_get (plist, QCwidth), NATNUMP (prop)))
+	width = XINT (prop);
+      else if (FLOATP (prop))
+	width = (int)(XFLOAT_DATA (prop) + 0.5);
+      else if ((prop = Fplist_get (plist, QCalign_to), NATNUMP (prop)))
+	width = XINT (prop) - col;
+      else if (FLOATP (prop))
+	width = (int)(XFLOAT_DATA (prop) + 0.5) - col;
+	    
+      if (width >= 0)
+	{
+	  EMACS_INT start;
+	  if (OVERLAYP (overlay))
+	    *endpos = OVERLAY_POSITION (OVERLAY_END (overlay));
+	  else
+	    get_property_and_range (pos, Qdisplay, &val, &start, endpos, Qnil);
+	  return width;
+	}
+    }
+  return -1;
+}
+
 /* Scanning from the beginning of the current line, stop at the buffer
    position ENDPOS or at the column GOALCOL or at the end of line, whichever
    comes first.
@@ -560,8 +601,7 @@ scan_for_column (EMACS_INT *endpos, EMACS_INT *goalcol, EMACS_INT *prevcol)
 	break;
       prev_col = col;
 
-      /* Check composition sequence.  */
-      {
+      { /* Check composition sequence.  */
 	int len, len_byte, width;
 
 	if (check_composition (scan, scan_byte, end,
@@ -575,6 +615,20 @@ scan_for_column (EMACS_INT *endpos, EMACS_INT *goalcol, EMACS_INT *prevcol)
 	  }
       }
 
+      { /* Check display property.  */
+	EMACS_INT end;
+	int width = check_display_width (scan, col, &end);
+	if (width >= 0)
+	  {
+	    col += width;
+	    if (end > scan) /* Avoid infinite loops with 0-width overlays.  */
+	      {
+		scan = end; scan_byte = charpos_to_bytepos (scan);
+		continue;
+	      }
+	  }
+      }
+
       c = FETCH_BYTE (scan_byte);
 
       /* See if there is a display table and it relates