From: Kenichi Handa <handa@m17n.org>
Date: Wed, 28 May 1997 04:36:32 +0000 (+0000)
Subject: (Ffind_charset_string): The variable CHARSETS is
X-Git-Tag: emacs-20.1~1943
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a29e3b1b27cc78de76ce0eb6251b33c081fa52cf;p=emacs.git

(Ffind_charset_string): The variable CHARSETS is
changed to (int *).
---

diff --git a/src/charset.c b/src/charset.c
index 65a99561237..1df2faee644 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -534,7 +534,7 @@ CHARSET should be defined by `defined-charset' in advance.")
 
 /* Return number of different charsets in STR of length LEN.  In
    addition, for each found charset N, CHARSETS[N] is set 1.  The
-   caller should allocate CHARSETS (MAX_CHARSET + 1 bytes) in advance.
+   caller should allocate CHARSETS (MAX_CHARSET + 1 elements) in advance.
    It may lookup a unification table TABLE if supplied.  */
 
 int
@@ -616,12 +616,12 @@ Optional arg TABLE if non-nil is a unification table to look up.")
   (str, table)
      Lisp_Object str, table;
 {
-  char charsets[MAX_CHARSET + 1];
+  int charsets[MAX_CHARSET + 1];
   int i;
   Lisp_Object val;
 
   CHECK_STRING (str, 0);
-  bzero (charsets, MAX_CHARSET + 1);
+  bzero (charsets, (MAX_CHARSET + 1) * sizeof (int));
   find_charset_in_str (XSTRING (str)->data, XSTRING (str)->size,
 		       charsets, table);
   val = Qnil;