diff options
| author | Ken Raeburn <[email protected]> | 2002-06-03 18:03:26 +0000 |
|---|---|---|
| committer | Ken Raeburn <[email protected]> | 2002-06-03 18:03:26 +0000 |
| commit | 504322ad237edd663515f2157614e6d265924018 (patch) | |
| tree | 020e147783d63b992cfb2a078f2734241fef950b /src/buffer.c | |
| parent | 4738677d0b75e48874d436022d32441684e2d6e6 (diff) | |
* buffer.c (fix_overlays_before): Fix list-walking bug in 05-19 change.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/buffer.c b/src/buffer.c index 39d8d957a7..103715c80c 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)) |