mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-11 09:20:51 +00:00
Code Issues Releases Activity

(Flength): Return SUB_CHAR_TABLE_ORDINARY_SLOTS for sub char tables.

Browse Source
This commit is contained in:
Juanma Barranquero 2003-04-06 13:32:17 +00:00
parent d02fcd847e
commit b1f81fc530
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/ChangeLog
View File

@ -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 * editfns.c (Fformat): Use a copy of FORMAT string so that we can
destructively change "%S" to "%s". destructively change "%S" to "%s".
@ -21,7 +26,7 @@
* macterm.h (struct mac_output): Define x_pixels_diff and * macterm.h (struct mac_output): Define x_pixels_diff and
y_pixels_diff. y_pixels_diff.
2003-03-31 Juanma Barranquero <lektu@terra.es> 2003-03-31 Juanma Barranquero <lektu@terra.es>
* makefile.w32-in ($(BLD)/frame.$(O)): Add dependency on * makefile.w32-in ($(BLD)/frame.$(O)): Add dependency on

2
src/fns.c
View File

@ -142,6 +142,8 @@ To get the number of bytes, use `string-bytes'. */)
XSETFASTINT (val, SCHARS (sequence)); XSETFASTINT (val, SCHARS (sequence));
else if (VECTORP (sequence)) else if (VECTORP (sequence))
XSETFASTINT (val, XVECTOR (sequence)->size); 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)) else if (CHAR_TABLE_P (sequence))
XSETFASTINT (val, MAX_CHAR); XSETFASTINT (val, MAX_CHAR);
else if (BOOL_VECTOR_P (sequence)) else if (BOOL_VECTOR_P (sequence))