[O] "void-variable: tree" in agenda in emacs 23.4.1

[Daniel Clemente]

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 ... ...)))
  …