From: Juanma Barranquero <lekktu@gmail.com>
Date: Sun, 6 Apr 2003 13:32:17 +0000 (+0000)
Subject: (Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub char tables.
X-Git-Tag: ttn-vms-21-2-B4~10622
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1f81fc530edd396c57c8280054e6c263e7bcf19;p=emacs.git

(Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub char tables.
---

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))