changeset 18003:ac148c939dec

(Ffind_charset_string): The variable CHARSETS is changed to (int *).
author Kenichi Handa <handa@m17n.org>
date Wed, 28 May 1997 04:36:32 +0000
parents a14261786239
children 40ce43a92060
files src/charset.c
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/src/charset.c	Wed May 28 04:36:27 1997 +0000
+++ b/src/charset.c	Wed May 28 04:36:32 1997 +0000
@@ -534,7 +534,7 @@
 
 /* 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 @@
   (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;