From mboxrd@z Thu Jan 1 00:00:00 1970 From: James Harkins Subject: Re: Fwd: [bug] Beamer export fails in current master Date: Sat, 18 Jan 2014 09:39:16 +0800 Message-ID: References: <87k3e77wnf.fsf@gmail.com> <87ppntvsqr.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:38964) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W4Kt8-0005Ta-FP for Emacs-orgmode@gnu.org; Fri, 17 Jan 2014 20:39:58 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1W4Kt4-0000Ca-0o for Emacs-orgmode@gnu.org; Fri, 17 Jan 2014 20:39:54 -0500 Received: from mail-pb0-x22d.google.com ([2607:f8b0:400e:c01::22d]:36874) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1W4Kt3-0000CC-KW for Emacs-orgmode@gnu.org; Fri, 17 Jan 2014 20:39:49 -0500 Received: by mail-pb0-f45.google.com with SMTP id un15so1117240pbc.32 for ; Fri, 17 Jan 2014 17:39:48 -0800 (PST) In-Reply-To: <87ppntvsqr.fsf@gmail.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Nicolas Goaziou Cc: Emacs-orgmode@gnu.org 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=20 8.2.5f (release_8.2.5f-518-gd74205 @ /home/dlm/share/org-mode.git/lisp/)"=20 -- HEAD is: ~~ commit d74205b0f9e0707642c7b81e1c33a4a059323bea Author: Nicolas Goaziou 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=20 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=20 it, so I hit shift-tab twice to show all and then M-S-5 :noexport: RET RET,=20= then "!" to replace all. It completed the second replacement (third=20 top-level heading) and threw another error related to org-element--cache=20 [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=20 produce the .tex file, you'll also need ./shows/slidehead.org and=20 ./shows/glossary.org. It's not especially pressing -- I can keep using org 8.2.4. But, for=20 whatever reason, org element cache seems to be broken in my environment. hjh [1] Debugger entered--Lisp error: (wrong-number-of-arguments #[(tree data)=20 "\303=08\304H=09>\204 [tree cl-struct-avl-tree--tags data avl-tree--do-delete 0 error=20 "avl-tree--cmpfun accessing a non-avl-tree-" 2 "avl-tree--dummyroot=20 accessing a non-avl-tree-" 1] 5=20 ("/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]=20 ... 0] [nil [nil nil ... 0] ... 1] ... 0] nil nil 0]=20 org-element--cache-compare] (keyword (:key "EMAIL" :value "" :begin 130=20 :end 141 :post-blank 1 :post-affiliated 130 :parent nil)) nil t) (cond ((not data) (throw ... t)) ((> ... end) nil) (t (setq end ...)=20 (avl-tree-delete org-element--cache data nil t))) (let ((node ...) data) (while node (let* ... ...)) (cond (... ...) (...=20 nil) (t ... ...))) (while (let (... data) (while node ...) (cond ... ... ...))) (let ((beg ...)) (while (let ... ... ...))) (let ((inhibit-quit t) (offset ...) (end ...)) (let (...) (while ...))=20 (unless (zerop offset) (catch ... ...))) (catch (quote escape) (let (... ... ...) (let ... ...) (unless ... ...))) (progn (catch (quote escape) (let ... ... ...))=20 (org-element--cache-cancel-changes)) (if (org-element--cache-pending-changes-p) (progn (catch ... ...)=20 (org-element--cache-cancel-changes))) (when (org-element--cache-pending-changes-p) (catch (quote escape) (let=20 ... ... ...)) (org-element--cache-cancel-changes)) (save-current-buffer (set-buffer buffer) (when=20 (org-element--cache-pending-changes-p) (catch ... ...)=20 (org-element--cache-cancel-changes))) (with-current-buffer buffer (when (org-element--cache-pending-changes-p)=20= (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 ... ...=20 ...))) org-element--cache-sync(#>) (progn (org-element--cache-sync (current-buffer))) (if (and (not ignore-changes) (org-element--cache-pending-changes-p))=20 (progn (org-element--cache-sync ...))) (when (and (not ignore-changes) (org-element--cache-pending-changes-p))=20 (org-element--cache-sync (current-buffer))) (progn (when (and ... ...) (org-element--cache-sync ...)) (if (not ...)=20 (gethash key org-element--cache-objects) (let ... ...))) (if (and org-element-use-cache org-element--cache) (progn (when ... ...)=20= (if ... ... ...))) (when (and org-element-use-cache org-element--cache) (when (and ... ...)=20= (org-element--cache-sync ...)) (if (not ...) (gethash key=20 org-element--cache-objects) (let ... ...))) org-element-cache-get(3203) (let* ((cached ...) (begin ...)) (cond (... ... ... ...) (... ...) (...=20 ... ... ...) (t ...))) (let ((origin ...) element next) (end-of-line) (skip-chars-backward "=20 =09\n") (cond (... ...) (... ... ...)) (goto-char origin) (let* (... ...)=20 (cond ... ... ... ...)) (let (... parent special-flag) (while t ... ...=20 ...))) (save-restriction (widen) (let (... element next) (end-of-line)=20 (skip-chars-backward "=20 =09\n") (cond ... ...) (goto-char origin) (let* ... ...) (let ... ...))) (save-excursion (save-restriction (widen) (let ... ... ... ... ... ...=20 ...))) (org-with-wide-buffer (let (... element next) (end-of-line)=20 (skip-chars-backward "=20 =09\n") (cond ... ...) (goto-char origin) (let* ... ...) (let ... ...))) (catch (quote exit) (org-with-wide-buffer (let ... ... ... ... ... ...=20 ...))) org-element-at-point() (progn (org-element-at-point)) (unwind-protect (progn (org-element-at-point)) (set-match-data=20 save-match-data-internal (quote evaporate))) (let ((save-match-data-internal ...)) (unwind-protect (progn ...)=20 (set-match-data save-match-data-internal ...))) (save-match-data (org-element-at-point)) (let ((element ...)) (when (eq ... ...) (beginning-of-line) (let* ... ...=20= ...))) (while (re-search-forward "^[ =09]*#\\+INCLUDE:" nil t) (let (...) (when=20= ... ... ...))) (let ((case-fold-search t)) (goto-char (point-min)) (while=20 (re-search-forward "^[ =09]*#\\+INCLUDE:" nil t) (let ... ...))) org-export-expand-include-keyword() (progn (run-hook-with-args (quote org-export-before-processing-hook)=20 (org-export-backend-name backend)) (org-export-expand-include-keyword)=20 (org-macro-initialize-templates) (org-macro-replace-all=20 org-macro-templates) (org-export-execute-babel-code)=20 (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion=20 (run-hook-with-args ... ...)) (setq info (org-export-install-filters ...))=20= (org-macro-replace-all (list ... ... ... ...)) (setq tree=20 (org-element-parse-buffer nil visible-only))=20 (org-export-remove-uninterpreted-data tree info) (let (...) (dolist ...=20 ...)) (setq tree (org-export-filter-apply-functions ... tree info)) (setq=20 info (org-combine-plists info ...)) (let* (... ... ... ...)=20 (org-no-properties ...))) (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min))=20 (progn (run-hook-with-args ... ...) (org-export-expand-include-keyword)=20 (org-macro-initialize-templates) (org-macro-replace-all=20 org-macro-templates) (org-export-execute-babel-code)=20 (org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (setq=20= info ...) (org-macro-replace-all ...) (setq tree ...)=20 (org-export-remove-uninterpreted-data tree info) (let ... ...) (setq tree=20 ...) (setq info ...) (let* ... ...))) (with-current-buffer --buf-copy (goto-char (point-min)) (progn=20 (run-hook-with-args ... ...) (org-export-expand-include-keyword)=20 (org-macro-initialize-templates) (org-macro-replace-all=20 org-macro-templates) (org-export-execute-babel-code)=20 (org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (setq=20= info ...) (org-macro-replace-all ...) (setq tree ...)=20 (org-export-remove-uninterpreted-data tree info) (let ... ...) (setq tree=20 ...) (setq info ...) (let* ... ...))) (unwind-protect (with-current-buffer --buf-copy (goto-char ...) (progn=20 ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) (and=20 (buffer-live-p --buf-copy) (progn ... ...))) (let ((--buf-copy ...)) (unwind-protect (with-current-buffer --buf-copy=20 ... ...) (and ... ...))) (org-export-with-buffer-copy (run-hook-with-args (quote=20 org-export-before-processing-hook) (org-export-backend-name backend))=20 (org-export-expand-include-keyword) (org-macro-initialize-templates)=20 (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code)=20= (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion=20 (run-hook-with-args ... ...)) (setq info (org-export-install-filters ...))=20= (org-macro-replace-all (list ... ... ... ...)) (setq tree=20 (org-element-parse-buffer nil visible-only))=20 (org-export-remove-uninterpreted-data tree info) (let (...) (dolist ...=20 ...)) (setq tree (org-export-filter-apply-functions ... tree info)) (setq=20 info (org-combine-plists info ...)) (let* (... ... ... ...)=20 (org-no-properties ...))) (let* ((org-export-current-backend ...) (info ...) tree)=20 (org-export-with-buffer-copy (run-hook-with-args ... ...)=20 (org-export-expand-include-keyword) (org-macro-initialize-templates)=20 (org-macro-replace-all org-macro-templates) (org-export-execute-babel-code)=20= (org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (setq=20= info ...) (org-macro-replace-all ...) (setq tree ...)=20 (org-export-remove-uninterpreted-data tree info) (let ... ...) (setq tree=20 ...) (setq info ...) (let* ... ...))) (save-restriction (cond (... ...) (subtreep ... ... ... ...)) (let* (...=20= ... tree) (org-export-with-buffer-copy ... ... ... ... ... ... ... ... ...=20= ... ... ... ... ... ... ...))) (save-excursion (save-restriction (cond ... ...) (let* ... ...))) org-export-as(beamer nil nil nil nil) (let ((output ...) (buffer ...) (encoding buffer-file-coding-system))=20 (when (and ... ...) (org-kill-new output)) (with-current-buffer buffer=20 (erase-buffer) (setq buffer-file-coding-system encoding) (insert output)=20 (goto-char ...) (and ... ...)) (when=20 org-export-show-temporary-export-buffer (switch-to-buffer-other-window=20 buffer)) buffer) (if async (org-export-async-start (\` ...) (\` ...)) (let (... ... ...)=20 (when ... ...) (with-current-buffer buffer ... ... ... ... ...) (when=20 org-export-show-temporary-export-buffer ...) buffer)) org-export-to-buffer(beamer "*Org BEAMER Export*" nil nil nil nil nil=20 (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)=20 (and ... t) (and ... t) (and ... t))) (cond ((eql action ...) (org-export-insert-default-template nil optns))=20 ((eql action ...) (org-export-stack)) ((eql action ...)=20 (org-publish-current-file ... ...)) ((eql action ...)=20 (org-publish-current-project ... ...)) ((eql action ...) (org-publish ...=20 ... ...)) ((eql action ...) (org-publish-all ... ...)) (t (save-excursion=20 ... ...))) (case action (template (org-export-insert-default-template nil optns))=20 (stack (org-export-stack)) (publish-current-file (org-publish-current-file=20= ... ...)) (publish-current-project (org-publish-current-project ... ...))=20 (publish-choose-project (org-publish ... ... ...)) (publish-all=20 (org-publish-all ... ...)) (otherwise (save-excursion ... ...))) (let* ((input ...) (action ...) (optns ...)) (unless (memq ... optns)=20 (move-marker org-export-dispatch-last-position nil)) (case action (template=20= ...) (stack ...) (publish-current-file ...) (publish-current-project ...)=20 (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=20 reverse)) (catch (quote exit) (avl-tree-mapc (function ...) org-element--cache=20 (quote reverse))) (if (zerop offset) nil (catch (quote exit) (avl-tree-mapc ...=20 org-element--cache ...))) (unless (zerop offset) (catch (quote exit) (avl-tree-mapc ...=20 org-element--cache ...))) (let ((inhibit-quit t) (offset ...) (end ...)) (let (...) (while ...))=20 (unless (zerop offset) (catch ... ...))) (catch (quote escape) (let (... ... ...) (let ... ...) (unless ... ...))) (progn (catch (quote escape) (let ... ... ...))=20 (org-element--cache-cancel-changes)) (if (org-element--cache-pending-changes-p) (progn (catch ... ...)=20 (org-element--cache-cancel-changes))) (when (org-element--cache-pending-changes-p) (catch (quote escape) (let=20 ... ... ...)) (org-element--cache-cancel-changes)) (save-current-buffer (set-buffer buffer) (when=20 (org-element--cache-pending-changes-p) (catch ... ...)=20 (org-element--cache-cancel-changes))) (with-current-buffer buffer (when (org-element--cache-pending-changes-p)=20= (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 ... ...=20 ...))) org-element--cache-sync(#) (progn (org-element--cache-sync (current-buffer))=20 (org-element--cache-push-change top (- bottom offset) offset)) (if (> gap org-element-cache-merge-changes-threshold) (progn=20 (org-element--cache-sync ...) (org-element--cache-push-change top ...=20 offset)) (timer-activate-when-idle (aref org-element--cache-status 4) t)=20 (aset org-element--cache-status 0 t) (aset org-element--cache-status 1 (min=20= top current-start)) (aset org-element--cache-status 2 (- ... offset)) (incf=20= (aref org-element--cache-status 3) offset)) (let* ((current-start ...) (current-end ...) (gap ...)) (if (> gap=20 org-element-cache-merge-changes-threshold) (progn ... ...)=20 (timer-activate-when-idle ... t) (aset org-element--cache-status 0 t) (aset=20= org-element--cache-status 1 ...) (aset org-element--cache-status 2 ...)=20 (incf ... offset))) (if (not (org-element--cache-pending-changes-p))=20 (org-element--cache-push-change top (- bottom offset) offset) (let* (...=20 ... ...) (if ... ... ... ... ... ... ...))) (let ((offset ...)) (if (not ...) (org-element--cache-push-change top ...=20= offset) (let* ... ...))) (let ((top ...) (bottom ...)) (org-with-limited-levels (save-match-data=20 ...)) (let (...) (if ... ... ...))) (save-restriction (widen) (goto-char beg) (beginning-of-line) (let (...=20 ...) (org-with-limited-levels ...) (let ... ...))) (save-excursion (save-restriction (widen) (goto-char beg)=20 (beginning-of-line) (let ... ... ...))) (org-with-wide-buffer (goto-char beg) (beginning-of-line) (let (... ...)=20= (org-with-limited-levels ...) (let ... ...))) (progn (org-with-wide-buffer (goto-char beg) (beginning-of-line) (let ...=20= ... ...))) (if (and org-element-use-cache org-element--cache) (progn=20 (org-with-wide-buffer ... ... ...))) (when (and org-element-use-cache org-element--cache)=20 (org-with-wide-buffer (goto-char beg) (beginning-of-line) (let ... ...=20 ...))) (let ((inhibit-quit t)) (when (and org-element-use-cache=20 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 #)) perform-replace(":noexport:" "" t nil nil nil nil nil nil) query-replace(":noexport:" "" nil nil nil) call-interactively(query-replace nil nil)