diff options
| -rw-r--r-- | lisp/org/org-element.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/org/org-element.el b/lisp/org/org-element.el index 7a40d6933ca..844349c2fc0 100644 --- a/lisp/org/org-element.el +++ b/lisp/org/org-element.el | |||
| @@ -4950,6 +4950,7 @@ A and B are either integers or lists of integers, as returned by | |||
| 4950 | (defsubst org-element--cache-root () | 4950 | (defsubst org-element--cache-root () |
| 4951 | "Return root value in cache. | 4951 | "Return root value in cache. |
| 4952 | This function assumes `org-element--cache' is a valid AVL tree." | 4952 | This function assumes `org-element--cache' is a valid AVL tree." |
| 4953 | ;; FIXME: Why use internal functions of avl-tree? | ||
| 4953 | (avl-tree--node-left (avl-tree--dummyroot org-element--cache))) | 4954 | (avl-tree--node-left (avl-tree--dummyroot org-element--cache))) |
| 4954 | 4955 | ||
| 4955 | 4956 | ||
| @@ -4978,6 +4979,7 @@ the cache." | |||
| 4978 | (aref (car org-element--cache-sync-requests) 0))) | 4979 | (aref (car org-element--cache-sync-requests) 0))) |
| 4979 | (node (org-element--cache-root)) | 4980 | (node (org-element--cache-root)) |
| 4980 | lower upper) | 4981 | lower upper) |
| 4982 | ;; FIXME: Why use internal functions of avl-tree? | ||
| 4981 | (while node | 4983 | (while node |
| 4982 | (let* ((element (avl-tree--node-data node)) | 4984 | (let* ((element (avl-tree--node-data node)) |
| 4983 | (begin (org-element-property :begin element))) | 4985 | (begin (org-element-property :begin element))) |