* buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 change.

diff --git a/src/ChangeLog b/src/ChangeLog
index 93299b9c296b482f8cf5364adc06bf94bb0fd124..972dec6d681ca82cc9e5480bc144308d00956f1c 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-03  Ken Raeburn  <raeburn@raeburn.org>
+
+       * buffer.c (fix_overlays_before): Fix list-walking bug in 05-19
+       change.
+
 2002-06-02  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * bytecode.c (Fbyte_code): Cast `current_column' return value to int.

diff --git a/src/buffer.c b/src/buffer.c
index 39d8d957a7569523f263f03bfded025104ea03bb..103715c80c8fa36973446e1c3a471d959559d2f2 100644 (file)
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -3424,7 +3424,8 @@ fix_overlays_before (bp, prev, pos)
          Lisp_Object found = tail;
 
          /* Unlink the found overlay.  */
-         XSETCDR (parent, XCDR (found));
+         tail = XCDR (found);
+         XSETCDR (parent, tail);
          /* Move an overlay at RIGHT_PLACE to the next of the found one,
             and link it into the right place.  */
          if (NILP (right_pair))