diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-12 01:43:29 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2001-10-12 01:43:29 +0000 |
| commit | c3b09bbf666e39d22dd4f05092a315bbb285a525 (patch) | |
| tree | c23750270ba759b45e9545e7de099923c882bd3c /src/undo.c | |
| parent | 2168e04d47d101fff29b293a64593ad5a5a9a9ea (diff) | |
| download | emacs-c3b09bbf666e39d22dd4f05092a315bbb285a525.tar.gz | |
(Fprimitive_undo): Use XCAR/XCDR.
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/undo.c b/src/undo.c index 83c2327a8db..b664cf3c61f 100644 --- a/src/undo.c +++ b/src/undo.c @@ -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. */ |