aboutsummaryrefslogtreecommitdiffstats
path: root/src/undo.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/undo.c')
-rw-r--r--src/undo.c5
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.
289An undo command will stop at this point, 289An undo command will stop at this point,
290but another undo command will undo to the previous boundary. */) 290but 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)
455DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0, 455DEFUN ("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.
457Return what remains of the list. */) 457Return 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;