diff options
Diffstat (limited to 'src/undo.c')
| -rw-r--r-- | src/undo.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/undo.c b/src/undo.c index 2d491a41221..14a8268394a 100644 --- a/src/undo.c +++ b/src/undo.c | |||
| @@ -288,7 +288,7 @@ DEFUN ("undo-boundary", Fundo_boundary, Sundo_boundary, 0, 0, 0, | |||
| 288 | doc: /* Mark a boundary between units of undo. | 288 | doc: /* Mark a boundary between units of undo. |
| 289 | An undo command will stop at this point, | 289 | An undo command will stop at this point, |
| 290 | but another undo command will undo to the previous boundary. */) | 290 | but another undo command will undo to the previous boundary. */) |
| 291 | () | 291 | (void) |
| 292 | { | 292 | { |
| 293 | Lisp_Object tem; | 293 | Lisp_Object tem; |
| 294 | if (EQ (current_buffer->undo_list, Qt)) | 294 | if (EQ (current_buffer->undo_list, Qt)) |
| @@ -455,8 +455,7 @@ truncate_undo_list (struct buffer *b) | |||
| 455 | DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0, | 455 | DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0, |
| 456 | doc: /* Undo N records from the front of the list LIST. | 456 | doc: /* Undo N records from the front of the list LIST. |
| 457 | Return what remains of the list. */) | 457 | Return what remains of the list. */) |
| 458 | (n, list) | 458 | (Lisp_Object n, Lisp_Object list) |
| 459 | Lisp_Object n, list; | ||
| 460 | { | 459 | { |
| 461 | struct gcpro gcpro1, gcpro2; | 460 | struct gcpro gcpro1, gcpro2; |
| 462 | Lisp_Object next; | 461 | Lisp_Object next; |