Mercurial > emacs

changeset 98107:77ec19652e4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(composition_compute_stop_pos): Limit the search of composition to at most 500 characters ahead. If we reach the limit or find a newline, set cmp_it->ch to -2 and return 0. (composition_reseat_it): Handle the case that cmp_it->ch is -2.
author Kenichi Handa <handa@m17n.org>
date Tue, 09 Sep 2008 11:07:49 +0000
parents 43ea5fd8c7ad
children 7b2adb63b556
files src/composite.c
diffstat 1 files changed, 18 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/src/composite.c	Tue Sep 09 08:02:00 2008 +0000
+++ b/src/composite.c	Tue Sep 09 11:07:49 2008 +0000
@@ -994,7 +994,11 @@
 {
   EMACS_INT start, end, c;
   Lisp_Object prop, val;
+  /* This is from forward_to_next_line_start in xdisp.c.  */
+  const int MAX_NEWLINE_DISTANCE = 500;
 
+  if (endpos > charpos + MAX_NEWLINE_DISTANCE)
+    endpos = charpos + MAX_NEWLINE_DISTANCE;
   cmp_it->stop_pos = endpos;
   if (find_composition (charpos, endpos, &start, &end, &prop, string)
       && COMPOSITION_VALID_P (start, end, prop))
@@ -1020,6 +1024,8 @@
 	FETCH_STRING_CHAR_ADVANCE (c, string, charpos, bytepos);
       else
 	FETCH_CHAR_ADVANCE (c, charpos, bytepos);
+      if (c == '\n')
+	break;
       val = CHAR_TABLE_REF (Vcomposition_function_table, c);
       if (! NILP (val))
 	{
@@ -1041,6 +1047,11 @@
 	    }
 	}
     }
+  if (charpos == endpos)
+    {
+      cmp_it->stop_pos = endpos;
+      cmp_it->ch = -2;
+    }
 }
 
 /* Check if the character at CHARPOS (and BYTEPOS) is composed
@@ -1062,6 +1073,13 @@
      struct face *face;
      Lisp_Object string;
 {
+  if (cmp_it->ch == -2)
+    {
+      composition_compute_stop_pos (cmp_it, charpos, bytepos, endpos, string);
+      if (cmp_it->ch == -2)
+	return 0;
+    }
+
   if (cmp_it->ch < 0)
     {
       /* We are looking at a static composition.  */