(Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub char tables.

diff --git a/src/ChangeLog b/src/ChangeLog
index 526998f5d82dc9e308bac5891c1926907758df6f..d89bf8533da425d0d41b22ed285e9f84f823c6a8 100644 (file)
--- 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 6c752fc9dd99e7ec89928c7b55cc805c2e756da6..8a70ed04053b7ccb58f1058a6974363ff8ef3c1d 100644 (file)
--- 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))