From 504322ad237edd663515f2157614e6d265924018 Mon Sep 17 00:00:00 2001 From: Ken Raeburn Date: Mon, 3 Jun 2002 18:03:26 +0000 Subject: [PATCH] * buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 change. --- src/ChangeLog | 5 +++++ src/buffer.c | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/src/ChangeLog b/src/ChangeLog index 93299b9c296..972dec6d681 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2002-06-03 Ken Raeburn + + * buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 + change. + 2002-06-02 Thien-Thi Nguyen * bytecode.c (Fbyte_code): Cast `current_column' return value to int. diff --git a/src/buffer.c b/src/buffer.c index 39d8d957a75..103715c80c8 100644 --- 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)) -- 2.39.5