Include composite.h

(lisp_string_width): New function.
(Fstring_width): Call lisp_string_width instead of strwidth.

1 files changed, 40 insertions, 2 deletions

diff --git a/src/charset.c b/src/charset.c
index 76dde15f7ab..329f7fd0221 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -34,6 +34,7 @@ Boston, MA 02111-1307, USA.  */
 #include "lisp.h"
 #include "buffer.h"
 #include "charset.h"
+#include "composite.h"
 #include "coding.h"
 #include "disptab.h"
 
@@ -1261,6 +1262,44 @@ strwidth (str, len)
   return width;
 }
 
+int
+lisp_string_width (str)
+     Lisp_Object str;
+{
+  int len = XSTRING (str)->size, len_byte = STRING_BYTES (XSTRING (str));
+  int i = 0, i_byte;
+  int width = 0;
+  int start, end, start_byte;
+  Lisp_Object prop;
+  int cmp_id;
+
+  while (i < len)
+    {
+      if (find_composition (i, len, &start, &end, &prop, str))
+	{
+	  start_byte = string_char_to_byte (str, start);
+	  if (i < start)
+	    {
+	      i_byte = string_char_to_byte (str, i);
+	      width += strwidth (XSTRING (str)->data + i_byte,
+				 start_byte - i_byte);
+	    }
+	  cmp_id
+	    = get_composition_id (start, start_byte, end - start, prop, str);
+	  if (cmp_id >= 0)
+	    width += composition_table[cmp_id]->width;
+	  i = end;
+	}
+      else
+	{
+	  i_byte = string_char_to_byte (str, i);
+	  width += strwidth (XSTRING (str)->data + i_byte, len_byte - i_byte);
+	  i = len;
+	}
+    }
+  return width;
+}
+
 DEFUN ("string-width", Fstring_width, Sstring_width, 1, 1, 0,
   "Return width of STRING when displayed in the current buffer.\n\
 Width is measured by how many columns it occupies on the screen.\n\
@@ -1274,8 +1313,7 @@ taken to occupy `tab-width' columns.")
   Lisp_Object val;
 
   CHECK_STRING (str, 0);
-  XSETFASTINT (val, strwidth (XSTRING (str)->data,
-			      STRING_BYTES (XSTRING (str))));
+  XSETFASTINT (val, lisp_string_width (str));
   return val;
 }