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 <n.goaz...@gmail.com>
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)