From a29e3b1b27cc78de76ce0eb6251b33c081fa52cf Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 28 May 1997 04:36:32 +0000 Subject: [PATCH] (Ffind_charset_string): The variable CHARSETS is changed to (int *). --- src/charset.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/charset.c b/src/charset.c index 65a9956123..1df2faee64 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; -- 2.20.1