(Ffind_charset_string): Setup the vector `charsets' correctly.

diff --git a/src/charset.c b/src/charset.c
index 2425e18c58e5f2e0fb79ab5d408c27107a398f40..0ef023a3df265b39eb68f0763f5dfb3ddb93ca95 100644 (file)
--- a/src/charset.c
+++ b/src/charset.c
@@ -1366,6 +1366,8 @@ only `ascii', `eight-bit-control', and `eight-bit-graphic'. */)
   CHECK_STRING (str);
 
   charsets = Fmake_vector (make_number (charset_table_used), Qnil);
+  for (i = 0; i < charset_table_used; i++)
+    ASET (charsets, i, Fcons (make_number (i), Qnil));
   find_charsets_in_text (XSTRING (str)->data, XSTRING (str)->size,
                         STRING_BYTES (XSTRING (str)), charsets, table);