(Flength): Unroll loop over lists.

diff --git a/src/ChangeLog b/src/ChangeLog
index 234d50b4dd99cfe5bde57028c86b4a69e303c5b7..ab6e6771dcef0420b2b2d7fe7f2e8bdd57adb45b 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -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.

diff --git a/src/fns.c b/src/fns.c
index 148c03dca5fa4f33aff1eb38ea06763e460b1411..5e70a36831c17a79c1887e462e9069d52663a1bf 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -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))