aboutsummaryrefslogtreecommitdiffstats
path: root/src/buffer.c
diff options
context:
space:
mode:
authorGerd Möllmann2022-10-01 08:28:14 +0200
committerGerd Möllmann2022-10-01 08:32:05 +0200
commitc55254dcccf53df3e619737bb6670f0a573f27a1 (patch)
tree59f8797e70d49a5c0db8c869ac11a7317954ad94 /src/buffer.c
parentab2926aad3e15c6cfa0e4b31ae9274c47a58baf2 (diff)
downloademacs-c55254dcccf53df3e619737bb6670f0a573f27a1.tar.gz
emacs-c55254dcccf53df3e619737bb6670f0a573f27a1.zip
Make it compile with ITREE_DEBUG defined
* src/buffer.c (make_lispy_interval_node): Use make_fixnum. (overlay_tree): Use ITREE_NULL.
Diffstat (limited to 'src/buffer.c')
-rw-r--r--src/buffer.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/buffer.c b/src/buffer.c
index 19937216ed5..1e01750e16b 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -4913,15 +4913,15 @@ defvar_per_buffer (struct Lisp_Buffer_Objfwd *bo_fwd, const char *namestring,
4913static Lisp_Object 4913static Lisp_Object
4914make_lispy_interval_node (const struct interval_node *node) 4914make_lispy_interval_node (const struct interval_node *node)
4915{ 4915{
4916 return listn (CONSTYPE_HEAP, 12, 4916 return listn (12,
4917 intern (":begin"), 4917 intern (":begin"),
4918 make_number (node->begin), 4918 make_fixnum (node->begin),
4919 intern (":end"), 4919 intern (":end"),
4920 make_number (node->end), 4920 make_fixnum (node->end),
4921 intern (":limit"), 4921 intern (":limit"),
4922 make_number (node->limit), 4922 make_fixnum (node->limit),
4923 intern (":offset"), 4923 intern (":offset"),
4924 make_number (node->offset), 4924 make_fixnum (node->offset),
4925 intern (":rear-advance"), 4925 intern (":rear-advance"),
4926 node->rear_advance ? Qt : Qnil, 4926 node->rear_advance ? Qt : Qnil,
4927 intern (":front-advance"), 4927 intern (":front-advance"),
@@ -4932,7 +4932,7 @@ static Lisp_Object
4932overlay_tree (const struct interval_tree *tree, 4932overlay_tree (const struct interval_tree *tree,
4933 const struct interval_node *node) 4933 const struct interval_node *node)
4934{ 4934{
4935 if (node == &tree->nil) 4935 if (node == ITREE_NULL)
4936 return Qnil; 4936 return Qnil;
4937 return list3 (make_lispy_interval_node (node), 4937 return list3 (make_lispy_interval_node (node),
4938 overlay_tree (tree, node->left), 4938 overlay_tree (tree, node->left),