diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-01-11 11:33:03 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2018-01-11 11:33:03 -0500 |
| commit | fe15532eef5e7375fd2d91b92e173e5ed12534ef (patch) | |
| tree | 0c4010a9f8bff7687b2bc9d2f1662459126ba181 /lisp/org/org-element.el | |
| parent | e911587fb61bbc7f4be41e0a044cb6dee8f9e615 (diff) | |
| download | emacs-fe15532eef5e7375fd2d91b92e173e5ed12534ef.tar.gz emacs-fe15532eef5e7375fd2d91b92e173e5ed12534ef.tar.bz2 emacs-fe15532eef5e7375fd2d91b92e173e5ed12534ef.zip | |
* lisp/org/org-element.el: Add comment about use of internal functions
Diffstat (limited to 'lisp/org/org-element.el')
| -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 (defsubst org-element--cache-root () "Return root value in cache. This function assumes `org-element--cache' is a valid AVL tree." + ;; FIXME: Why use internal functions of avl-tree? (avl-tree--node-left (avl-tree--dummyroot org-element--cache))) @@ -4978,6 +4979,7 @@ the cache." (aref (car org-element--cache-sync-requests) 0))) (node (org-element--cache-root)) lower upper) + ;; FIXME: Why use internal functions of avl-tree? (while node (let* ((element (avl-tree--node-data node)) (begin (org-element-property :begin element))) |