aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
authorMatt Armstrong2022-10-19 15:56:07 -0700
committerStefan Monnier2022-10-19 21:35:09 -0400
commitf421b58db5d34f45773a73c699b4b1a5a5b9da03 (patch)
tree3bddc5b3bb76bb6054e30fbae30765d8211a37f8 /src/buffer.c
parent06252617b2c4cc9bcdd9407f1e709a7e0908cf27 (diff)
downloademacs-f421b58db5d34f45773a73c699b4b1a5a5b9da03.tar.gz
emacs-f421b58db5d34f45773a73c699b4b1a5a5b9da03.zip
Prefix all itree.h type names with itree_
Rename interval_node -> itree_node, interval_tree -> itree_tree, interval_tree_order -> itree_order. * src/alloc.c: Renames. * src/buffer.c: ditto. * src/itree.c: ditto. * src/itree.h: ditto. * src/lisp.h: ditto. * src/pdumper.h: ditto. * src/textprop.h: ditto. * src/xdisp.h: ditto.
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c40
1 files changed, 20 insertions, 20 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 74c6705cbd3..228c6e60560 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -655,7 +655,7 @@ static void
655copy_overlays (struct buffer *from, struct buffer *to) 655copy_overlays (struct buffer *from, struct buffer *to)
656{ 656{
657 eassert (to && ! to->overlays); 657 eassert (to && ! to->overlays);
658 struct interval_node *node; 658 struct itree_node *node;
659 659
660 ITREE_FOREACH (node, from->overlays, PTRDIFF_MIN, PTRDIFF_MAX, ASCENDING) 660 ITREE_FOREACH (node, from->overlays, PTRDIFF_MIN, PTRDIFF_MAX, ASCENDING)
661 { 661 {
@@ -932,13 +932,13 @@ drop_overlay (struct Lisp_Overlay *ov)
932void 932void
933delete_all_overlays (struct buffer *b) 933delete_all_overlays (struct buffer *b)
934{ 934{
935 struct interval_node *node; 935 struct itree_node *node;
936 936
937 if (! b->overlays) 937 if (! b->overlays)
938 return; 938 return;
939 939
940 /* FIXME: This loop sets the overlays' `buffer` field to NULL but 940 /* FIXME: This loop sets the overlays' `buffer` field to NULL but
941 doesn't set the interval_nodes' `parent`, `left` and `right` 941 doesn't set the itree_nodes' `parent`, `left` and `right`
942 fields accordingly. I believe it's harmless, but a bit untidy since 942 fields accordingly. I believe it's harmless, but a bit untidy since
943 other parts of the code are careful to set those fields to NULL when 943 other parts of the code are careful to set those fields to NULL when
944 the overlay is deleted. 944 the overlay is deleted.
@@ -978,8 +978,8 @@ set_overlays_multibyte (bool multibyte)
978 if (! current_buffer->overlays || Z == Z_BYTE) 978 if (! current_buffer->overlays || Z == Z_BYTE)
979 return; 979 return;
980 980
981 struct interval_node **nodes = NULL; 981 struct itree_node **nodes = NULL;
982 struct interval_tree *tree = current_buffer->overlays; 982 struct itree_tree *tree = current_buffer->overlays;
983 const intmax_t size = interval_tree_size (tree); 983 const intmax_t size = interval_tree_size (tree);
984 984
985 /* We can't use `interval_node_set_region` at the same time 985 /* We can't use `interval_node_set_region` at the same time
@@ -988,14 +988,14 @@ set_overlays_multibyte (bool multibyte)
988 USE_SAFE_ALLOCA; 988 USE_SAFE_ALLOCA;
989 SAFE_NALLOCA (nodes, 1, size); 989 SAFE_NALLOCA (nodes, 1, size);
990 { 990 {
991 struct interval_node *node, **cursor = nodes; 991 struct itree_node *node, **cursor = nodes;
992 ITREE_FOREACH (node, tree, PTRDIFF_MIN, PTRDIFF_MAX, ASCENDING) 992 ITREE_FOREACH (node, tree, PTRDIFF_MIN, PTRDIFF_MAX, ASCENDING)
993 *(cursor++) = node; 993 *(cursor++) = node;
994 } 994 }
995 995
996 for (int i = 0; i < size; ++i, ++nodes) 996 for (int i = 0; i < size; ++i, ++nodes)
997 { 997 {
998 struct interval_node * const node = *nodes; 998 struct itree_node * const node = *nodes;
999 999
1000 if (multibyte) 1000 if (multibyte)
1001 { 1001 {
@@ -2436,7 +2436,7 @@ advance_to_char_boundary (ptrdiff_t byte_pos)
2436static void 2436static void
2437swap_buffer_overlays (struct buffer *buffer, struct buffer *other) 2437swap_buffer_overlays (struct buffer *buffer, struct buffer *other)
2438{ 2438{
2439 struct interval_node *node; 2439 struct itree_node *node;
2440 2440
2441 ITREE_FOREACH (node, buffer->overlays, PTRDIFF_MIN, PTRDIFF_MAX, ASCENDING) 2441 ITREE_FOREACH (node, buffer->overlays, PTRDIFF_MIN, PTRDIFF_MAX, ASCENDING)
2442 XOVERLAY (node->data)->buffer = other; 2442 XOVERLAY (node->data)->buffer = other;
@@ -2965,7 +2965,7 @@ overlays_in (ptrdiff_t beg, ptrdiff_t end, bool extend,
2965 ptrdiff_t len = *len_ptr; 2965 ptrdiff_t len = *len_ptr;
2966 ptrdiff_t next = ZV; 2966 ptrdiff_t next = ZV;
2967 Lisp_Object *vec = *vec_ptr; 2967 Lisp_Object *vec = *vec_ptr;
2968 struct interval_node *node; 2968 struct itree_node *node;
2969 2969
2970 ITREE_FOREACH (node, current_buffer->overlays, beg, 2970 ITREE_FOREACH (node, current_buffer->overlays, beg,
2971 /* Find empty OV at Z ? */ 2971 /* Find empty OV at Z ? */
@@ -3026,7 +3026,7 @@ ptrdiff_t
3026next_overlay_change (ptrdiff_t pos) 3026next_overlay_change (ptrdiff_t pos)
3027{ 3027{
3028 ptrdiff_t next = ZV; 3028 ptrdiff_t next = ZV;
3029 struct interval_node *node; 3029 struct itree_node *node;
3030 3030
3031 ITREE_FOREACH (node, current_buffer->overlays, pos, next, ASCENDING) 3031 ITREE_FOREACH (node, current_buffer->overlays, pos, next, ASCENDING)
3032 { 3032 {
@@ -3052,7 +3052,7 @@ next_overlay_change (ptrdiff_t pos)
3052ptrdiff_t 3052ptrdiff_t
3053previous_overlay_change (ptrdiff_t pos) 3053previous_overlay_change (ptrdiff_t pos)
3054{ 3054{
3055 struct interval_node *node; 3055 struct itree_node *node;
3056 ptrdiff_t prev = BEGV; 3056 ptrdiff_t prev = BEGV;
3057 3057
3058 ITREE_FOREACH (node, current_buffer->overlays, prev, pos, DESCENDING) 3058 ITREE_FOREACH (node, current_buffer->overlays, prev, pos, DESCENDING)
@@ -3135,7 +3135,7 @@ disable_line_numbers_overlay_at_eob (void)
3135bool 3135bool
3136overlay_touches_p (ptrdiff_t pos) 3136overlay_touches_p (ptrdiff_t pos)
3137{ 3137{
3138 struct interval_node *node; 3138 struct itree_node *node;
3139 3139
3140 /* We need to find overlays ending in pos, as well as empty ones at 3140 /* We need to find overlays ending in pos, as well as empty ones at
3141 pos. */ 3141 pos. */
@@ -3347,7 +3347,7 @@ ptrdiff_t
3347overlay_strings (ptrdiff_t pos, struct window *w, unsigned char **pstr) 3347overlay_strings (ptrdiff_t pos, struct window *w, unsigned char **pstr)
3348{ 3348{
3349 bool multibyte = ! NILP (BVAR (current_buffer, enable_multibyte_characters)); 3349 bool multibyte = ! NILP (BVAR (current_buffer, enable_multibyte_characters));
3350 struct interval_node *node; 3350 struct itree_node *node;
3351 3351
3352 overlay_heads.used = overlay_heads.bytes = 0; 3352 overlay_heads.used = overlay_heads.bytes = 0;
3353 overlay_tails.used = overlay_tails.bytes = 0; 3353 overlay_tails.used = overlay_tails.bytes = 0;
@@ -3848,7 +3848,7 @@ However, the overlays you get are the real objects that the buffer uses. */)
3848 (void) 3848 (void)
3849{ 3849{
3850 Lisp_Object overlays = Qnil; 3850 Lisp_Object overlays = Qnil;
3851 struct interval_node *node; 3851 struct itree_node *node;
3852 3852
3853 ITREE_FOREACH (node, current_buffer->overlays, BEG, Z, DESCENDING) 3853 ITREE_FOREACH (node, current_buffer->overlays, BEG, Z, DESCENDING)
3854 overlays = Fcons (node->data, overlays); 3854 overlays = Fcons (node->data, overlays);
@@ -3980,7 +3980,7 @@ report_overlay_modification (Lisp_Object start, Lisp_Object end, bool after,
3980 3980
3981 if (!after) 3981 if (!after)
3982 { 3982 {
3983 struct interval_node *node; 3983 struct itree_node *node;
3984 EMACS_INT begin_arg = XFIXNUM (start); 3984 EMACS_INT begin_arg = XFIXNUM (start);
3985 EMACS_INT end_arg = XFIXNUM (end); 3985 EMACS_INT end_arg = XFIXNUM (end);
3986 /* We are being called before a change. 3986 /* We are being called before a change.
@@ -4072,7 +4072,7 @@ void
4072evaporate_overlays (ptrdiff_t pos) 4072evaporate_overlays (ptrdiff_t pos)
4073{ 4073{
4074 Lisp_Object hit_list = Qnil; 4074 Lisp_Object hit_list = Qnil;
4075 struct interval_node *node; 4075 struct itree_node *node;
4076 4076
4077 ITREE_FOREACH (node, current_buffer->overlays, pos, pos, ASCENDING) 4077 ITREE_FOREACH (node, current_buffer->overlays, pos, pos, ASCENDING)
4078 { 4078 {
@@ -4913,7 +4913,7 @@ defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, const char *namestring,
4913 4913
4914#ifdef ITREE_DEBUG 4914#ifdef ITREE_DEBUG
4915static Lisp_Object 4915static Lisp_Object
4916make_lispy_interval_node (const struct interval_node *node) 4916make_lispy_itree_node (const struct itree_node *node)
4917{ 4917{
4918 return listn (12, 4918 return listn (12,
4919 intern (":begin"), 4919 intern (":begin"),
@@ -4931,12 +4931,12 @@ make_lispy_interval_node (const struct interval_node *node)
4931} 4931}
4932 4932
4933static Lisp_Object 4933static Lisp_Object
4934overlay_tree (const struct interval_tree *tree, 4934overlay_tree (const struct itree_tree *tree,
4935 const struct interval_node *node) 4935 const struct itree_node *node)
4936{ 4936{
4937 if (node == ITREE_NULL) 4937 if (node == ITREE_NULL)
4938 return Qnil; 4938 return Qnil;
4939 return list3 (make_lispy_interval_node (node), 4939 return list3 (make_lispy_itree_node (node),
4940 overlay_tree (tree, node->left), 4940 overlay_tree (tree, node->left),
4941 overlay_tree (tree, node->right)); 4941 overlay_tree (tree, node->right));
4942} 4942}