(Ffind_charset_region): Change the declaration of

charsets from `char' to `int.
(find_charset_in_str): Likewize.

diff --git a/src/charset.c b/src/charset.c
index 8518cc8829d0ca3dc59d9dbaac4cd8d11ca36650..65a995612371e06bbe428621abfc6404013614f0 100644 (file)
--- a/src/charset.c
+++ b/src/charset.c
@@ -539,8 +539,8 @@ CHARSET should be defined by `defined-charset' in advance.")
 
 int
 find_charset_in_str (str, len, charsets, table)
-     unsigned char *str, *charsets;
-     int len;
+     unsigned char *str;
+     int len, *charsets;
      Lisp_Object table;
 {
   int num = 0;
@@ -584,7 +584,7 @@ Optional arg TABLE if non-nil is a unification table to look up.")
   (beg, end, table)
      Lisp_Object beg, end, table;
 {
-  char charsets[MAX_CHARSET + 1];
+  int charsets[MAX_CHARSET + 1];
   int from, to, stop, i;
   Lisp_Object val;
 
@@ -593,7 +593,7 @@ Optional arg TABLE if non-nil is a unification table to look up.")
   stop = to = XFASTINT (end);
   if (from < GPT && GPT < to)
     stop = GPT;
-  bzero (charsets, MAX_CHARSET + 1);
+  bzero (charsets, (MAX_CHARSET + 1) * sizeof (int));
   while (1)
     {
       find_charset_in_str (POS_ADDR (from), stop - from, charsets, table);