diff options
| author | Gerd Möllmann | 2022-10-01 08:28:14 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2022-10-01 08:32:05 +0200 |
| commit | c55254dcccf53df3e619737bb6670f0a573f27a1 (patch) | |
| tree | 59f8797e70d49a5c0db8c869ac11a7317954ad94 /src/buffer.c | |
| parent | ab2926aad3e15c6cfa0e4b31ae9274c47a58baf2 (diff) | |
| download | emacs-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.c | 12 |
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, | |||
| 4913 | static Lisp_Object | 4913 | static Lisp_Object |
| 4914 | make_lispy_interval_node (const struct interval_node *node) | 4914 | make_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 | |||
| 4932 | overlay_tree (const struct interval_tree *tree, | 4932 | overlay_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), |