# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 945216716 0
# Node ID c629af522c09b3e28ef20b14dc91f4d2c7c12cfb
# Parent  68a90068d4899645f085599af96330caf6970909
(Flength): The length of char-table is MAX_CHAR.
(concat): Adjusted for the change of CHAR_STRING.
(Ffillarray): Adjusted for the change of CHAR_STRING.
(Fset_char_table_default): Delete codes for a composite character.
(hash_put): Return hash index.

diff -r 68a90068d489 -r c629af522c09 src/fns.c
--- a/src/fns.c	Wed Dec 15 00:11:24 1999 +0000
+++ b/src/fns.c	Wed Dec 15 00:11:56 1999 +0000
@@ -139,9 +139,7 @@
   else if (VECTORP (sequence))
     XSETFASTINT (val, XVECTOR (sequence)->size);
   else if (CHAR_TABLE_P (sequence))
-    XSETFASTINT (val, (MIN_CHAR_COMPOSITION
-		       + (CHAR_FIELD2_MASK | CHAR_FIELD3_MASK)
-		       - 1));
+    XSETFASTINT (val, MAX_CHAR);
   else if (BOOL_VECTOR_P (sequence))
     XSETFASTINT (val, XBOOL_VECTOR (sequence)->size);
   else if (COMPILEDP (sequence))
@@ -823,14 +821,11 @@
 		     we already decided to make a multibyte string.  */
 		  {
 		    int c = XINT (elt);
-		    unsigned char work[4], *str;
-		    int i = CHAR_STRING (c, work, str);
-
 		    /* P exists as a variable
 		       to avoid a bug on the Masscomp C compiler.  */
 		    unsigned char *p = & XSTRING (val)->data[toindex_byte];
-		    bcopy (str, p, i);
-		    toindex_byte += i;
+
+		    toindex_byte += CHAR_STRING (c, p);
 		    toindex++;
 		  }
 	      }
@@ -1982,8 +1977,8 @@
       size = XSTRING (array)->size;
       if (STRING_MULTIBYTE (array))
 	{
-	  unsigned char workbuf[4], *str;
-	  int len = CHAR_STRING (charval, workbuf, str);
+	  unsigned char str[MAX_MULTIBYTE_LENGTH];
+	  int len = CHAR_STRING (charval, str);
 	  int size_byte = STRING_BYTES (XSTRING (array));
 	  unsigned char *p1 = p, *endp = p + size_byte;
 	  int i;
@@ -2230,7 +2225,7 @@
 
   /* Even if C is not a generic char, we had better behave as if a
      generic char is specified.  */
-  if (charset == CHARSET_COMPOSITION || CHARSET_DIMENSION (charset) == 1)
+  if (CHARSET_DIMENSION (charset) == 1)
     code1 = 0;
   temp = XCHAR_TABLE (char_table)->contents[charset + 128];
   if (!code1)
@@ -3912,9 +3907,10 @@
 
 
 /* Put an entry into hash table H that associates KEY with VALUE.
-   HASH is a previously computed hash code of KEY.  */
-
-void
+   HASH is a previously computed hash code of KEY.
+   Value is the index of the entry in H matching KEY.  */
+
+int
 hash_put (h, key, value, hash)
      struct Lisp_Hash_Table *h;
      Lisp_Object key, value;
@@ -3941,6 +3937,7 @@
   start_of_bucket = hash % XVECTOR (h->index)->size;
   HASH_NEXT (h, i) = HASH_INDEX (h, start_of_bucket);
   HASH_INDEX (h, start_of_bucket) = make_number (i);
+  return i;
 }