comparison src/undo.c @ 26404:c3c9cc1c2379

Remove USE_TEXT_PROPERTIES.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 11 Nov 1999 11:45:06 +0000
parents a5eaace0fa01
children 4b675266db04
comparison
equal deleted inserted replaced
26403:03830fdf5186 26404:c3c9cc1c2379
446 #ifdef CLASH_DETECTION 446 #ifdef CLASH_DETECTION
447 Funlock_buffer (); 447 Funlock_buffer ();
448 #endif /* CLASH_DETECTION */ 448 #endif /* CLASH_DETECTION */
449 Fset_buffer_modified_p (Qnil); 449 Fset_buffer_modified_p (Qnil);
450 } 450 }
451 #ifdef USE_TEXT_PROPERTIES
452 else if (EQ (car, Qnil)) 451 else if (EQ (car, Qnil))
453 { 452 {
454 /* Element (nil prop val beg . end) is property change. */ 453 /* Element (nil prop val beg . end) is property change. */
455 Lisp_Object beg, end, prop, val; 454 Lisp_Object beg, end, prop, val;
456 455
461 beg = Fcar (cdr); 460 beg = Fcar (cdr);
462 end = Fcdr (cdr); 461 end = Fcdr (cdr);
463 462
464 Fput_text_property (beg, end, prop, val, Qnil); 463 Fput_text_property (beg, end, prop, val, Qnil);
465 } 464 }
466 #endif /* USE_TEXT_PROPERTIES */
467 else if (INTEGERP (car) && INTEGERP (cdr)) 465 else if (INTEGERP (car) && INTEGERP (cdr))
468 { 466 {
469 /* Element (BEG . END) means range was inserted. */ 467 /* Element (BEG . END) means range was inserted. */
470 Lisp_Object end; 468 Lisp_Object end;
471 469