mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

(Flength): Unroll loop over lists.

Browse source
This commit is contained in:
Gerd Moellmann 1999-10-31 02:04:50 +00:00
parent 80c6cb1ff0
commit 7843e09cdc
2 changed files with 18 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/ChangeLog
View file

@ -1,3 +1,11 @@
1999-10-31 Gerd Moellmann <gerd@gnu.org>
* fns.c (Flength): Unroll loop over lists.
* xdisp.c (append_space): Return non-zero if space was appended.
(display_line): Set charpos of first glyph to -1 only if that
glyph is the space added by append_glyph.
1999-10-29 Kenichi Handa <handa@etl.go.jp>
* coding.c (code_convert_region): Update `dst' correctly.

13
src/fns.c
View file

@ -148,11 +148,18 @@ To get the number of bytes, use `string-bytes'")
XSETFASTINT (val, XVECTOR (sequence)->size & PSEUDOVECTOR_SIZE_MASK);
else if (CONSP (sequence))
{
for (i = 0; CONSP (sequence); ++i)
i = 0;
while (CONSP (sequence))
{
if ((i & 0xff) == 0)
QUIT;
sequence = XCDR (sequence);
++i;
if (!CONSP (sequence))
break;
sequence = XCDR (sequence);
++i;
QUIT;
}
if (!NILP (sequence))