Mercurial > emacs
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 |