Mercurial > emacs
diff src/fns.c @ 50461:6a4e89f0d078
(Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub char tables.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Sun, 06 Apr 2003 13:31:40 +0000 |
parents | c0f3ec529c05 |
children | 663da44e6176 |
line wrap: on
line diff
--- a/src/fns.c Sun Apr 06 12:35:33 2003 +0000 +++ b/src/fns.c Sun Apr 06 13:31:40 2003 +0000 @@ -142,6 +142,8 @@ 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))