(Flength): Unroll loop over lists.

2 files changed, 18 insertions, 3 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 234d50b4dd9..ab6e6771dce 100644
--- 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 148c03dca5f..5e70a36831c 100644
--- 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))