Mercurial > hg > xemacs-beta

comparison src/undo.c @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
44 /* The first time a command records something for undo. 44 /* The first time a command records something for undo.
45 it also allocates the undo-boundary object 45 it also allocates the undo-boundary object
46 which will be added to the list at the end of the command. 46 which will be added to the list at the end of the command.
47 This ensures we can't run out of space while trying to make 47 This ensures we can't run out of space while trying to make
48 an undo-boundary. */ 48 an undo-boundary. */
49 Lisp_Object pending_boundary; 49 static Lisp_Object pending_boundary;
50 50
51 static void 51 static void
52 undo_boundary (struct buffer *b) 52 undo_boundary (struct buffer *b)
53 { 53 {
54 Lisp_Object tem = Fcar (b->undo_list); 54 Lisp_Object tem = Fcar (b->undo_list);
545 DEFSUBR (Fundo_boundary); 545 DEFSUBR (Fundo_boundary);
546 defsymbol (&Qinhibit_read_only, "inhibit-read-only"); 546 defsymbol (&Qinhibit_read_only, "inhibit-read-only");
547 } 547 }
548 548
549 void 549 void
550 reinit_vars_of_undo (void)
551 {
552 inside_undo = 0;
553 }
554
555 void
550 vars_of_undo (void) 556 vars_of_undo (void)
551 { 557 {
552 inside_undo = 0; 558 reinit_vars_of_undo ();
559
553 pending_boundary = Qnil; 560 pending_boundary = Qnil;
554 staticpro (&pending_boundary); 561 staticpro (&pending_boundary);
555 last_undo_buffer = Qnil; 562 last_undo_buffer = Qnil;
556 staticpro (&last_undo_buffer); 563 staticpro (&last_undo_buffer);
557 } 564 }