aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2018-01-11 11:33:03 -0500
committerStefan Monnier2018-01-11 11:33:03 -0500
commitfe15532eef5e7375fd2d91b92e173e5ed12534ef (patch)
tree0c4010a9f8bff7687b2bc9d2f1662459126ba181
parente911587fb61bbc7f4be41e0a044cb6dee8f9e615 (diff)
downloademacs-fe15532eef5e7375fd2d91b92e173e5ed12534ef.tar.gz
emacs-fe15532eef5e7375fd2d91b92e173e5ed12534ef.zip
* lisp/org/org-element.el: Add comment about use of internal functions
-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)))