aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/org/org-element.el2
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.
4952This function assumes `org-element--cache' is a valid AVL tree." 4952This 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)))