Re: [O] Fwd: [bug] Beamer export fails in current master

[James Harkins]

On Thursday, January 16, 2014 5:29:32 AM HKT, Nicolas Goaziou wrote:
> I see nothing wrong in that process. Can you still reproduce the error
> with latest Org?

Quite strange. I just moved up to current master -- "Org-mode version 
8.2.5f (release_8.2.5f-518-gd74205 @ /home/dlm/share/org-mode.git/lisp/)" 
-- HEAD is:

~~
commit d74205b0f9e0707642c7b81e1c33a4a059323bea
Author: Nicolas Goaziou <address@hidden>
Date:   Fri Jan 17 23:05:20 2014 +0100

   ox-koma-letter: Improve defcustom docstrings
~~

Now, with a simple org file, just a few frames, C-c C-e l B finishes 
successfully. With my full presentation, I get a different error [1].

Moreover, I wanted to see if the :noexport: tags had something to do with 
it, so I hit shift-tab twice to show all and then M-S-5 :noexport: RET RET, 
then "!" to replace all. It completed the second replacement (third 
top-level heading) and threw another error related to org-element--cache 
[2].

You can get my files at:

https://github.com/jamshark70/scweek2014

The one I was trying to export is ./shows/01-intro/01-contents.org. To 
produce the .tex file, you'll also need ./shows/slidehead.org and 
./shows/glossary.org.

It's not especially pressing -- I can keep using org 8.2.4. But, for 
whatever reason, org element cache seems to be broken in my environment.

hjh

[1]
Debugger entered--Lisp error: (wrong-number-of-arguments #[(tree data) 
"\303\304H	>\204
[tree cl-struct-avl-tree--tags data avl-tree--do-delete 0 error 
"avl-tree--cmpfun accessing a non-avl-tree-" 2 "avl-tree--dummyroot 
accessing a non-avl-tree-" 1] 5 
("/usr/share/emacs/23.3/lisp/emacs-lisp/avl-tree.elc" . 14229)] 4)
 avl-tree-delete([cl-struct-avl-tree- [[[[nil nil ... 0] [nil nil ... 0] 
... 0] [nil [nil nil ... 0] ... 1] ... 0] nil nil 0] 
org-element--cache-compare] (keyword (:key "EMAIL" :value "" :begin 130 
:end 141 :post-blank 1 :post-affiliated 130 :parent nil)) nil t)
 (cond ((not data) (throw ... t)) ((> ... end) nil) (t (setq end ...) 
(avl-tree-delete org-element--cache data nil t)))
 (let ((node ...) data) (while node (let* ... ...)) (cond (... ...) (... 
nil) (t ... ...)))
 (while (let (... data) (while node ...) (cond ... ... ...)))
 (let ((beg ...)) (while (let ... ... ...)))
 (let ((inhibit-quit t) (offset ...) (end ...)) (let (...) (while ...)) 
(unless (zerop offset) (catch ... ...)))
 (catch (quote escape) (let (... ... ...) (let ... ...) (unless ... ...)))
 (progn (catch (quote escape) (let ... ... ...)) 
(org-element--cache-cancel-changes))
 (if (org-element--cache-pending-changes-p) (progn (catch ... ...) 
(org-element--cache-cancel-changes)))
 (when (org-element--cache-pending-changes-p) (catch (quote escape) (let 
... ... ...)) (org-element--cache-cancel-changes))
 (save-current-buffer (set-buffer buffer) (when 
(org-element--cache-pending-changes-p) (catch ... ...) 
(org-element--cache-cancel-changes)))
 (with-current-buffer buffer (when (org-element--cache-pending-changes-p) 
(catch ... ...) (org-element--cache-cancel-changes)))
 (progn (with-current-buffer buffer (when ... ... ...)))
 (if (buffer-live-p buffer) (progn (with-current-buffer buffer ...)))
 (when (buffer-live-p buffer) (with-current-buffer buffer (when ... ... 
...)))
 org-element--cache-sync(#<buffer 01-contents.org<2>>)
 (progn (org-element--cache-sync (current-buffer)))
 (if (and (not ignore-changes) (org-element--cache-pending-changes-p)) 
(progn (org-element--cache-sync ...)))
 (when (and (not ignore-changes) (org-element--cache-pending-changes-p)) 
(org-element--cache-sync (current-buffer)))
 (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(3203)
 (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 ... ...)))
 (catch (quote exit) (org-with-wide-buffer (let ... ... ... ... ... ... 
...)))
 org-element-at-point()
 (progn (org-element-at-point))
 (unwind-protect (progn (org-element-at-point)) (set-match-data 
save-match-data-internal (quote evaporate)))
 (let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal ...)))
 (save-match-data (org-element-at-point))
 (let ((element ...)) (when (eq ... ...) (beginning-of-line) (let* ... ... 
...)))
 (while (re-search-forward "^[ 	]*#\\+INCLUDE:" nil t) (let (...) (when 
... ... ...)))
 (let ((case-fold-search t)) (goto-char (point-min)) (while 
(re-search-forward "^[ 	]*#\\+INCLUDE:" nil t) (let ... ...)))
 org-export-expand-include-keyword()
 (progn (run-hook-with-args (quote org-export-before-processing-hook) 
(org-export-backend-name backend)) (org-export-expand-include-keyword) 
(org-macro-initialize-templates) (org-macro-replace-all 
org-macro-templates) (org-export-execute-babel-code) 
(org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion 
(run-hook-with-args ... ...)) (setq info (org-export-install-filters ...)) 
(org-macro-replace-all (list ... ... ... ...)) (setq tree 
(org-element-parse-buffer nil visible-only)) 
(org-export-remove-uninterpreted-data tree info) (let (...) (dolist ... 
...)) (setq tree (org-export-filter-apply-functions ... tree info)) (setq 
info (org-combine-plists info ...)) (let* (... ... ... ...) 
(org-no-properties ...)))
 (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) 
(progn (run-hook-with-args ... ...) (org-export-expand-include-keyword) 
(org-macro-initialize-templates) (org-macro-replace-all 
org-macro-templates) (org-export-execute-babel-code) 
(org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (setq 
info ...) (org-macro-replace-all ...) (setq tree ...) 
(org-export-remove-uninterpreted-data tree info) (let ... ...) (setq tree 
...) (setq info ...) (let* ... ...)))
 (with-current-buffer --buf-copy (goto-char (point-min)) (progn 
(run-hook-with-args ... ...) (org-export-expand-include-keyword) 
(org-macro-initialize-templates) (org-macro-replace-all 
org-macro-templates) (org-export-execute-babel-code) 
(org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (setq 
info ...) (org-macro-replace-all ...) (setq tree ...) 
(org-export-remove-uninterpreted-data tree info) (let ... ...) (setq tree 
...) (setq info ...) (let* ... ...)))
 (unwind-protect (with-current-buffer --buf-copy (goto-char ...) (progn 
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (and 
(buffer-live-p --buf-copy) (progn ... ...)))
 (let ((--buf-copy ...)) (unwind-protect (with-current-buffer --buf-copy 
... ...) (and ... ...)))
 (org-export-with-buffer-copy (run-hook-with-args (quote 
org-export-before-processing-hook) (org-export-backend-name backend)) 
(org-export-expand-include-keyword) (org-macro-initialize-templates) 
(org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) 
(org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion 
(run-hook-with-args ... ...)) (setq info (org-export-install-filters ...)) 
(org-macro-replace-all (list ... ... ... ...)) (setq tree 
(org-element-parse-buffer nil visible-only)) 
(org-export-remove-uninterpreted-data tree info) (let (...) (dolist ... 
...)) (setq tree (org-export-filter-apply-functions ... tree info)) (setq 
info (org-combine-plists info ...)) (let* (... ... ... ...) 
(org-no-properties ...)))
 (let* ((org-export-current-backend ...) (info ...) tree) 
(org-export-with-buffer-copy (run-hook-with-args ... ...) 
(org-export-expand-include-keyword) (org-macro-initialize-templates) 
(org-macro-replace-all org-macro-templates) (org-export-execute-babel-code) 
(org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (setq 
info ...) (org-macro-replace-all ...) (setq tree ...) 
(org-export-remove-uninterpreted-data tree info) (let ... ...) (setq tree 
...) (setq info ...) (let* ... ...)))
 (save-restriction (cond (... ...) (subtreep ... ... ... ...)) (let* (... 
... tree) (org-export-with-buffer-copy ... ... ... ... ... ... ... ... ... 
... ... ... ... ... ... ...)))
 (save-excursion (save-restriction (cond ... ...) (let* ... ...)))
 org-export-as(beamer nil nil nil nil)
 (let ((output ...) (buffer ...) (encoding buffer-file-coding-system)) 
(when (and ... ...) (org-kill-new output)) (with-current-buffer buffer 
(erase-buffer) (setq buffer-file-coding-system encoding) (insert output) 
(goto-char ...) (and ... ...)) (when 
org-export-show-temporary-export-buffer (switch-to-buffer-other-window 
buffer)) buffer)
 (if async (org-export-async-start (\` ...) (\` ...)) (let (... ... ...) 
(when ... ...) (with-current-buffer buffer ... ... ... ... ...) (when 
org-export-show-temporary-export-buffer ...) buffer))
 org-export-to-buffer(beamer "*Org BEAMER Export*" nil nil nil nil nil 
(lambda nil (LaTeX-mode)))
 org-beamer-export-as-latex(nil nil nil nil)
 funcall(org-beamer-export-as-latex nil nil nil nil)
 (save-excursion (when arg (if ... ... ...)) (funcall action (and ... t) 
(and ... t) (and ... t) (and ... t)))
 (cond ((eql action ...) (org-export-insert-default-template nil optns)) 
((eql action ...) (org-export-stack)) ((eql action ...) 
(org-publish-current-file ... ...)) ((eql action ...) 
(org-publish-current-project ... ...)) ((eql action ...) (org-publish ... 
... ...)) ((eql action ...) (org-publish-all ... ...)) (t (save-excursion 
... ...)))
 (case action (template (org-export-insert-default-template nil optns)) 
(stack (org-export-stack)) (publish-current-file (org-publish-current-file 
... ...)) (publish-current-project (org-publish-current-project ... ...)) 
(publish-choose-project (org-publish ... ... ...)) (publish-all 
(org-publish-all ... ...)) (otherwise (save-excursion ... ...)))
 (let* ((input ...) (action ...) (optns ...)) (unless (memq ... optns) 
(move-marker org-export-dispatch-last-position nil)) (case action (template 
...) (stack ...) (publish-current-file ...) (publish-current-project ...) 
(publish-choose-project ...) (publish-all ...) (otherwise ...)))
 org-export-dispatch(nil)
 call-interactively(org-export-dispatch nil nil)

[2]
Debugger entered--Lisp error: (void-function avl-tree-mapc)
 (avl-tree-mapc (function (lambda ... ...)) org-element--cache (quote 
reverse))
 (catch (quote exit) (avl-tree-mapc (function ...) org-element--cache 
(quote reverse)))
 (if (zerop offset) nil (catch (quote exit) (avl-tree-mapc ... 
org-element--cache ...)))
 (unless (zerop offset) (catch (quote exit) (avl-tree-mapc ... 
org-element--cache ...)))
 (let ((inhibit-quit t) (offset ...) (end ...)) (let (...) (while ...)) 
(unless (zerop offset) (catch ... ...)))
 (catch (quote escape) (let (... ... ...) (let ... ...) (unless ... ...)))
 (progn (catch (quote escape) (let ... ... ...)) 
(org-element--cache-cancel-changes))
 (if (org-element--cache-pending-changes-p) (progn (catch ... ...) 
(org-element--cache-cancel-changes)))
 (when (org-element--cache-pending-changes-p) (catch (quote escape) (let 
... ... ...)) (org-element--cache-cancel-changes))
 (save-current-buffer (set-buffer buffer) (when 
(org-element--cache-pending-changes-p) (catch ... ...) 
(org-element--cache-cancel-changes)))
 (with-current-buffer buffer (when (org-element--cache-pending-changes-p) 
(catch ... ...) (org-element--cache-cancel-changes)))
 (progn (with-current-buffer buffer (when ... ... ...)))
 (if (buffer-live-p buffer) (progn (with-current-buffer buffer ...)))
 (when (buffer-live-p buffer) (with-current-buffer buffer (when ... ... 
...)))
 org-element--cache-sync(#<buffer 01-contents.org>)
 (progn (org-element--cache-sync (current-buffer)) 
(org-element--cache-push-change top (- bottom offset) offset))
 (if (> gap org-element-cache-merge-changes-threshold) (progn 
(org-element--cache-sync ...) (org-element--cache-push-change top ... 
offset)) (timer-activate-when-idle (aref org-element--cache-status 4) t) 
(aset org-element--cache-status 0 t) (aset org-element--cache-status 1 (min 
top current-start)) (aset org-element--cache-status 2 (- ... offset)) (incf 
(aref org-element--cache-status 3) offset))
 (let* ((current-start ...) (current-end ...) (gap ...)) (if (> gap 
org-element-cache-merge-changes-threshold) (progn ... ...) 
(timer-activate-when-idle ... t) (aset org-element--cache-status 0 t) (aset 
org-element--cache-status 1 ...) (aset org-element--cache-status 2 ...) 
(incf ... offset)))
 (if (not (org-element--cache-pending-changes-p)) 
(org-element--cache-push-change top (- bottom offset) offset) (let* (... 
... ...) (if ... ... ... ... ... ... ...)))
 (let ((offset ...)) (if (not ...) (org-element--cache-push-change top ... 
offset) (let* ... ...)))
 (let ((top ...) (bottom ...)) (org-with-limited-levels (save-match-data 
...)) (let (...) (if ... ... ...)))
 (save-restriction (widen) (goto-char beg) (beginning-of-line) (let (... 
...) (org-with-limited-levels ...) (let ... ...)))
 (save-excursion (save-restriction (widen) (goto-char beg) 
(beginning-of-line) (let ... ... ...)))
 (org-with-wide-buffer (goto-char beg) (beginning-of-line) (let (... ...) 
(org-with-limited-levels ...) (let ... ...)))
 (progn (org-with-wide-buffer (goto-char beg) (beginning-of-line) (let ... 
... ...)))
 (if (and org-element-use-cache org-element--cache) (progn 
(org-with-wide-buffer ... ... ...)))
 (when (and org-element-use-cache org-element--cache) 
(org-with-wide-buffer (goto-char beg) (beginning-of-line) (let ... ... 
...)))
 (let ((inhibit-quit t)) (when (and org-element-use-cache 
org-element--cache) (org-with-wide-buffer ... ... ...)))
 org-element--cache-record-change(3381 3381 10)
 replace-match("" nil t)
 replace-match-maybe-edit("" nil t nil (3381 3391 #<buffer 
01-contents.org>))
 perform-replace(":noexport:" "" t nil nil nil nil nil nil)
 query-replace(":noexport:" "" nil nil nil)
 call-interactively(query-replace nil nil)