diff options
| author | Kenichi Handa | 2010-07-09 15:55:27 +0900 |
|---|---|---|
| committer | Kenichi Handa | 2010-07-09 15:55:27 +0900 |
| commit | e1ffae3bb6b87eb824ea9c6291935584fc806cc4 (patch) | |
| tree | ee223039304ceff6edbc2df45ef36f69805c369e /src/undo.c | |
| parent | 80d4189187791916590b6c2b20b54588d432bb75 (diff) | |
| parent | 0508c67f47a9b79684f2f454010a2d086df7f35b (diff) | |
| download | emacs-e1ffae3bb6b87eb824ea9c6291935584fc806cc4.tar.gz emacs-e1ffae3bb6b87eb824ea9c6291935584fc806cc4.zip | |
merge trunk
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; |