* fns.c (Fset_char_table_default): Check that a charset is defined before checking its dimension.

2 files changed, 6 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index c47a6b633f5..9202673757e 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2001-07-18  Ken Raeburn  <raeburn@gnu.org>
+
+        * fns.c (Fset_char_table_default): Check that a charset is defined
+        before checking its dimension.
+
 2001-07-17  Ken Raeburn  <raeburn@gnu.org>
 
         * coding.c (setup_coding_system): Don't do any designation based
diff --git a/src/fns.c b/src/fns.c
index 2b398e08ce5..ba1498f0f89 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2353,7 +2353,7 @@ See also the documentation of make-char.")
 
   /* Even if C is not a generic char, we had better behave as if a
      generic char is specified.  */
-  if (CHARSET_DIMENSION (charset) == 1)
+  if (!CHARSET_DEFINED_P (charset) || CHARSET_DIMENSION (charset) == 1)
     code1 = 0;
   temp = XCHAR_TABLE (char_table)->contents[charset + 128];
   if (!code1)