Mercurial > hg > xemacs-beta
comparison src/extents.c @ 217:d44af0c54775 r20-4b7
Import from CVS: tag r20-4b7
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:08:34 +0200 |
parents | 78478c60bfcd |
children | 2c611d1463a6 |
comparison
equal
deleted
inserted
replaced
216:43306a74e31c | 217:d44af0c54775 |
---|---|
407 /* ------------------------------- */ | 407 /* ------------------------------- */ |
408 | 408 |
409 /* flags for decode_extent() */ | 409 /* flags for decode_extent() */ |
410 #define DE_MUST_HAVE_BUFFER 1 | 410 #define DE_MUST_HAVE_BUFFER 1 |
411 #define DE_MUST_BE_ATTACHED 2 | 411 #define DE_MUST_BE_ATTACHED 2 |
412 | |
413 /* #### remove this crap */ | |
414 #ifdef ENERGIZE | |
415 extern void restore_energize_extent_state (EXTENT extent); | |
416 #endif | |
417 | 412 |
418 Lisp_Object Vlast_highlighted_extent; | 413 Lisp_Object Vlast_highlighted_extent; |
419 int mouse_highlight_priority; | 414 int mouse_highlight_priority; |
420 | 415 |
421 Lisp_Object Qextentp; | 416 Lisp_Object Qextentp; |
3672 Lisp_Object extent; | 3667 Lisp_Object extent; |
3673 XSETEXTENT (extent, e); | 3668 XSETEXTENT (extent, e); |
3674 add_extent_to_children_list (XEXTENT (parent), extent); | 3669 add_extent_to_children_list (XEXTENT (parent), extent); |
3675 } | 3670 } |
3676 } | 3671 } |
3677 | |
3678 /* #### it's still unclear to me that this Energize-specific junk | |
3679 needs to be in here. Just use the general mechanisms, or fix | |
3680 them up! --ben */ | |
3681 #ifdef ENERGIZE | |
3682 if (energize_extent_data (original)) | |
3683 { | |
3684 extent_plist_slot (e) = Qnil; /* slightly antisocial... */ | |
3685 restore_energize_extent_state (e); | |
3686 } | |
3687 #endif | |
3688 | 3672 |
3689 return e; | 3673 return e; |
3690 } | 3674 } |
3691 | 3675 |
3692 static void | 3676 static void |
5563 | 5547 |
5564 static void | 5548 static void |
5565 update_extent (EXTENT extent, Bytind from, Bytind to) | 5549 update_extent (EXTENT extent, Bytind from, Bytind to) |
5566 { | 5550 { |
5567 set_extent_endpoints (extent, from, to, Qnil); | 5551 set_extent_endpoints (extent, from, to, Qnil); |
5568 /* #### remove this crap */ | |
5569 #ifdef ENERGIZE | |
5570 restore_energize_extent_state (extent); | |
5571 #endif | |
5572 } | 5552 } |
5573 | 5553 |
5574 /* Insert an extent, usually from the dup_list of a string which | 5554 /* Insert an extent, usually from the dup_list of a string which |
5575 has just been inserted. | 5555 has just been inserted. |
5576 This code does not handle the case of undo. | 5556 This code does not handle the case of undo. |