(Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub char tables.

2 files changed, 9 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 526998f5d82..d89bf8533da 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,4 +1,9 @@
-2003-04-04  Kenichi Handa  <handa@etlken2>
+2003-04-06  Gareth Jones  <emacs@referential.org.uk>  (tiny change)
+
+        * fns.c (Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub
+        char tables.
+
+2003-04-04  Kenichi Handa  <handa@m17n.org>
 
         * editfns.c (Fformat): Use a copy of FORMAT string so that we can
         destructively change "%S" to "%s".
@@ -21,7 +26,7 @@
 
         * macterm.h (struct mac_output): Define x_pixels_diff and
         y_pixels_diff.
-        
+
 2003-03-31  Juanma Barranquero  <lektu@terra.es>
 
         * makefile.w32-in ($(BLD)/frame.$(O)): Add dependency on
diff --git a/src/fns.c b/src/fns.c
index 6c752fc9dd9..8a70ed04053 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -142,6 +142,8 @@ To get the number of bytes, use `string-bytes'. */)
     XSETFASTINT (val, SCHARS (sequence));
   else if (VECTORP (sequence))
     XSETFASTINT (val, XVECTOR (sequence)->size);
+  else if (SUB_CHAR_TABLE_P (sequence))
+    XSETFASTINT (val, SUB_CHAR_TABLE_ORDINARY_SLOTS);
   else if (CHAR_TABLE_P (sequence))
     XSETFASTINT (val, MAX_CHAR);
   else if (BOOL_VECTOR_P (sequence))