mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

(record_delete): If we hit the end of the undo list, stop picking elements

Browse Source 
apart.
This commit is contained in:
Ken Raeburn 2000-04-26 18:39:30 +00:00
parent 7464346de7
commit 86a375f869
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/undo.c
View File

@ -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);