Mercurial > emacs

comparison src/fns.c @ 50461:6a4e89f0d078

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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
comparison
equal deleted inserted replaced
50460:4ed7bb80efbe 50461:6a4e89f0d078
140 retry: 140 retry:
141 if (STRINGP (sequence)) 141 if (STRINGP (sequence))
142 XSETFASTINT (val, SCHARS (sequence)); 142 XSETFASTINT (val, SCHARS (sequence));
143 else if (VECTORP (sequence)) 143 else if (VECTORP (sequence))
144 XSETFASTINT (val, XVECTOR (sequence)->size); 144 XSETFASTINT (val, XVECTOR (sequence)->size);
145 else if (SUB_CHAR_TABLE_P (sequence))
146 XSETFASTINT (val, SUB_CHAR_TABLE_ORDINARY_SLOTS);
145 else if (CHAR_TABLE_P (sequence)) 147 else if (CHAR_TABLE_P (sequence))
146 XSETFASTINT (val, MAX_CHAR); 148 XSETFASTINT (val, MAX_CHAR);
147 else if (BOOL_VECTOR_P (sequence)) 149 else if (BOOL_VECTOR_P (sequence))
148 XSETFASTINT (val, XBOOL_VECTOR (sequence)->size); 150 XSETFASTINT (val, XBOOL_VECTOR (sequence)->size);
149 else if (COMPILEDP (sequence)) 151 else if (COMPILEDP (sequence))