diff options
| author | Ken Raeburn <raeburn@raeburn.org> | 2000-04-26 18:39:30 +0000 |
|---|---|---|
| committer | Ken Raeburn <raeburn@raeburn.org> | 2000-04-26 18:39:30 +0000 |
| commit | 86a375f8697c3b81b22a8de680da7dfc22512ac3 (patch) | |
| tree | 8fdaa167fc1b59b6c6a2d3f044c49ab698fd8016 /src/undo.c | |
| parent | 7464346de7f3aa76a46146d8bede0a8ce5839030 (diff) | |
| download | emacs-86a375f8697c3b81b22a8de680da7dfc22512ac3.tar.gz | |
(record_delete): If we hit the end of the undo list, stop picking elements
apart.
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/undo.c b/src/undo.c index a498f2aae72..c09da9cddb5 100644 --- a/src/undo.c +++ b/src/undo.c @@ -115,7 +115,10 @@ record_delete (beg, string) while (1) { - elt = XCAR (tail); + if (NILP (tail)) + elt = Qnil; + else + elt = XCAR (tail); if (NILP (elt) || ! (CONSP (elt) && MARKERP (XCAR (elt)))) break; tail = XCDR (tail); |