From b1f81fc530edd396c57c8280054e6c263e7bcf19 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Sun, 6 Apr 2003 13:32:17 +0000 Subject: [PATCH] (Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub char tables. --- src/ChangeLog | 9 +++++++-- src/fns.c | 2 ++ 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 +2003-04-06 Gareth Jones (tiny change) + + * fns.c (Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub + char tables. + +2003-04-04 Kenichi Handa * 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 * 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)) -- 2.11.4.GIT