Hi,
since some days ago I get an export error after C-a a, batch export, C-e on
.org files, … Backtrace at the end.
Even (avl-tree--root org-element--cache) or (avl-tree--root nil) produce the
same error.
This is not a bug in org, but in Emacs 23.4.1. avl-tree.el says:
(defmacro avl-tree--root (tree)
;; Return the root node for an avl-tree. INTERNAL USE ONLY.
`(avl-tree--node-left (avl-tree--dummyroot tree)))
And it should have a comma before the word „tree“ in the body. Like this
(org-mode works with this):
(defmacro avl-tree--root (tree)
;; Return the root node for an avl-tree. INTERNAL USE ONLY.
`(avl-tree--node-left (avl-tree--dummyroot ,tree)))
This was fixed in emacs from Bazaar (in rev. 104392, Fri 2011-05-27 20:03:26
-0300).
But at the moment org-mode does not work in Emacs 23.4.1, so I think it
should have a work-around.
The fix can be: „if Emacs version is lower than […] then define the macro
again with the correct code“. Like:
(if (version< emacs-version "24")
(defmacro avl-tree--root (tree)
;; Backport fix for older versions due to missing comma in ,tree
`(avl-tree--node-left (avl-tree--dummyroot ,tree)))
)
Thanks,
Daniel
Backtrace:
Debugger entered--Lisp error: (void-variable tree)
(avl-tree--dummyroot tree)
(avl-tree--node-left (avl-tree--dummyroot tree))
(avl-tree--root org-element--cache)
(let ((node ...) last) (catch (quote found) (while node ...) last))
(if (not (wholenump key)) (gethash key org-element--cache-objects) (let (...
last) (catch ... ... last)))
(progn (when (and ... ...) (org-element--cache-sync ...)) (if (not ...)
(gethash key org-element--cache-objects) (let ... ...)))
(if (and org-element-use-cache org-element--cache) (progn (when ... ...) (if
... ... ...)))
(when (and org-element-use-cache org-element--cache) (when (and ... ...)
(org-element--cache-sync ...)) (if (not ...) (gethash key
org-element--cache-objects) (let ... ...)))
org-element-cache-get(65264)
(let* ((cached ...) (begin ...)) (cond (... ... ... ...) (... ...) (... ...
... ...) (t ...)))
(let ((origin ...) element next) (end-of-line) (skip-chars-backward "
\n") (cond (... ...) (... ... ...)) (goto-char origin) (let* (... ...)
(cond ... ... ... ...)) (let (... parent special-flag) (while t ... ... ...)))
(save-restriction (widen) (let (... element next) (end-of-line)
(skip-chars-backward "
\n") (cond ... ...) (goto-char origin) (let* ... ...) (let ... ...)))
(save-excursion (save-restriction (widen) (let ... ... ... ... ... ... ...)))
(org-with-wide-buffer (let (... element next) (end-of-line)
(skip-chars-backward "
\n") (cond ... ...) (goto-char origin) (let* ... ...) (let ... ...)))
…
