diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/undo.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/undo.c b/src/undo.c index 1c399fb873f..2e6cae310b6 100644 --- a/src/undo.c +++ b/src/undo.c | |||
| @@ -285,11 +285,11 @@ truncate_undo_list (list, minsize, maxsize) | |||
| 285 | DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0, | 285 | DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0, |
| 286 | "Undo N records from the front of the list LIST.\n\ | 286 | "Undo N records from the front of the list LIST.\n\ |
| 287 | Return what remains of the list.") | 287 | Return what remains of the list.") |
| 288 | (count, list) | 288 | (n, list) |
| 289 | Lisp_Object count, list; | 289 | Lisp_Object n, list; |
| 290 | { | 290 | { |
| 291 | int count = specpdl_ptr - specpdl; | 291 | int count = specpdl_ptr - specpdl; |
| 292 | register int arg = XINT (count); | 292 | register int arg = XINT (n); |
| 293 | #if 0 /* This is a good feature, but would make undo-start | 293 | #if 0 /* This is a good feature, but would make undo-start |
| 294 | unable to do what is expected. */ | 294 | unable to do what is expected. */ |
| 295 | Lisp_Object tem; | 295 | Lisp_Object tem; |