changeset 45626:7d132ad61148

* buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 change.
author Ken Raeburn <raeburn@raeburn.org>
date Mon, 03 Jun 2002 18:03:14 +0000
parents 28f0b229040c
children f5eb1df26f64
files src/buffer.c
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))