* composite.c: Don't truncate sizes to 'int'.

(composition_gstring_p, composition_reseat_it)
(composition_adjust_point): Use EMACS_INT, not int.

diff --git a/src/ChangeLog b/src/ChangeLog
index 4b31db3e26a93df9ab419b321fff78ed7549a090..6ff0fe493077f31d77990da2f46be8f7af930574 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,9 @@
 2011-06-17  Paul Eggert  <eggert@cs.ucla.edu>
 
+       * composite.c: Don't truncate sizes to 'int'.
+       (composition_gstring_p, composition_reseat_it)
+       (composition_adjust_point): Use EMACS_INT, not int.
+
        * category.h (CATEGORY_SET_P): Remove unnecessary cast to EMACS_INT.
 
        * buffer.c: Include <verify.h>.

diff --git a/src/composite.c b/src/composite.c
index 51b7669cb4f2378501263a4eaeb7411d664dcf87..10946835705e9054f33e3c3d2b47a99e250f1ce5 100644 (file)
--- a/src/composite.c
+++ b/src/composite.c
@@ -705,7 +705,7 @@ int
 composition_gstring_p (Lisp_Object gstring)
 {
   Lisp_Object header;
-  int i;
+  EMACS_INT i;
 
   if (! VECTORP (gstring) || ASIZE (gstring) < 2)
     return 0;
@@ -1252,7 +1252,7 @@ composition_reseat_it (struct composition_it *cmp_it, EMACS_INT charpos, EMACS_I
     {
       Lisp_Object lgstring = Qnil;
       Lisp_Object val, elt;
-      int i;
+      EMACS_INT i;
 
       val = CHAR_TABLE_REF (Vcomposition_function_table, cmp_it->ch);
       for (i = 0; i < cmp_it->rule_idx; i++, val = XCDR (val));
@@ -1685,9 +1685,8 @@ find_automatic_composition (EMACS_INT pos, EMACS_INT limit,
 EMACS_INT
 composition_adjust_point (EMACS_INT last_pt, EMACS_INT new_pt)
 {
-  EMACS_INT beg, end;
+  EMACS_INT i, beg, end;
   Lisp_Object val;
-  int i;
 
   if (new_pt == BEGV || new_pt == ZV)
     return new_pt;