Mercurial > hg > xemacs-beta

comparison src/undo.c @ 20:859a2309aef8 r19-15b93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b93
author cvs
date Mon, 13 Aug 2007 08:50:05 +0200
parents 0293115a14e9
children 56c54cf7c5b6
comparison
equal deleted inserted replaced
19:ac1f612d5250 20:859a2309aef8
241 b->undo_list = Fcons (entry, b->undo_list); 241 b->undo_list = Fcons (entry, b->undo_list);
242 } 242 }
243 #endif /* FSFmacs */ 243 #endif /* FSFmacs */
244 244
245 245
246 DEFUN ("undo-boundary", Fundo_boundary, Sundo_boundary, 0, 0, 0 /* 246 DEFUN ("undo-boundary", Fundo_boundary, 0, 0, 0, /*
247 Mark a boundary between units of undo. 247 Mark a boundary between units of undo.
248 An undo command will stop at this point, 248 An undo command will stop at this point,
249 but another undo command will undo to the previous boundary. 249 but another undo command will undo to the previous boundary.
250 */ ) 250 */
251 () 251 ())
252 { 252 {
253 if (EQ (current_buffer->undo_list, Qt)) 253 if (EQ (current_buffer->undo_list, Qt))
254 return Qnil; 254 return Qnil;
255 undo_boundary (current_buffer); 255 undo_boundary (current_buffer);
256 return Qnil; 256 return Qnil;
358 } 358 }
359 else 359 else
360 return Qnil; 360 return Qnil;
361 } 361 }
362 362
363 DEFUN ("primitive-undo", Fprimitive_undo, Sprimitive_undo, 2, 2, 0 /* 363 DEFUN ("primitive-undo", Fprimitive_undo, 2, 2, 0, /*
364 Undo COUNT records from the front of the list LIST. 364 Undo COUNT records from the front of the list LIST.
365 Return what remains of the list. 365 Return what remains of the list.
366 */ ) 366 */
367 (count, list) 367 (count, list))
368 Lisp_Object count, list;
369 { 368 {
370 struct gcpro gcpro1, gcpro2; 369 struct gcpro gcpro1, gcpro2;
371 Lisp_Object next = Qnil; 370 Lisp_Object next = Qnil;
372 /* This function can GC */ 371 /* This function can GC */
373 int arg; 372 int arg;
542 } 541 }
543 542
544 void 543 void
545 syms_of_undo (void) 544 syms_of_undo (void)
546 { 545 {
547 defsubr (&Sprimitive_undo); 546 DEFSUBR (Fprimitive_undo);
548 defsubr (&Sundo_boundary); 547 DEFSUBR (Fundo_boundary);
549 defsymbol (&Qinhibit_read_only, "inhibit-read-only"); 548 defsymbol (&Qinhibit_read_only, "inhibit-read-only");
550 } 549 }
551 550
552 void 551 void
553 vars_of_undo (void) 552 vars_of_undo (void)