# HG changeset patch
# User Ken Raeburn <raeburn@raeburn.org>
# Date 1023127394 0
# Node ID 7d132ad611484d8d3a403cc82b9c037a1e03f3e3
# Parent  28f0b229040cc15a41edcc59b620f2d0bd1d2786
* buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 change.

diff -r 28f0b229040c -r 7d132ad61148 src/buffer.c
--- a/src/buffer.c	Mon Jun 03 03:15:34 2002 +0000
+++ b/src/buffer.c	Mon Jun 03 18:03:14 2002 +0000
@@ -3424,7 +3424,8 @@
 	  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))