procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(Fprimitive_undo): Use XCAR/XCDR.

Browse source
This commit is contained in:
Stefan Monnier 2001-10-12 01:43:29 +00:00
parent 2168e04d47
commit c3b09bbf66
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/undo.c
View file

@ -422,10 +422,10 @@ Return what remains of the list.")
while (arg > 0)
{
while (1)
while (CONSP (list))
{
next = Fcar (list);
list = Fcdr (list);
next = XCAR (list);
list = XCDR (list);
/* Exit inner loop at undo boundary. */
if (NILP (next))
break;
@ -436,8 +436,8 @@ Return what remains of the list.")
{
Lisp_Object car, cdr;
car = Fcar (next);
cdr = Fcdr (next);
car = XCAR (next);
cdr = XCDR (next);
if (EQ (car, Qt))
{
/* Element (t high . low) records previous modtime. */