From mboxrd@z Thu Jan 1 00:00:00 1970 From: Shlomi Vaknin Subject: Re: Bug: Exception when trying to export inlined-code [8.3.4 (8.3.4-9-gfda14f-elpa @ ~/.emacs.d/elpa/org-20160307/)] Date: Fri, 11 Mar 2016 21:13:44 +0000 Message-ID: References: <87y49qlmcw.fsf@nicolasgoaziou.fr> Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=001a114a822a9053f3052dcc688c Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:34473) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aeUNr-0004VP-Nz for emacs-orgmode@gnu.org; Fri, 11 Mar 2016 16:14:20 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1aeUNf-0001by-R3 for emacs-orgmode@gnu.org; Fri, 11 Mar 2016 16:14:07 -0500 Received: from mail-qk0-x230.google.com ([2607:f8b0:400d:c09::230]:34115) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1aeUNf-0001bn-Bj for emacs-orgmode@gnu.org; Fri, 11 Mar 2016 16:13:55 -0500 Received: by mail-qk0-x230.google.com with SMTP id x1so53198896qkc.1 for ; Fri, 11 Mar 2016 13:13:55 -0800 (PST) In-Reply-To: <87y49qlmcw.fsf@nicolasgoaziou.fr> 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: "Charles C. Berry" , "emacs-orgmode@gnu.org" --001a114a822a9053f3052dcc688c Content-Type: text/plain; charset=UTF-8 Hey Nicholas, Thanks for trying to help! Setting org-element-use-cache to nil did the trick, it now export just fine in both elpa version of org and on master, thanks! Without setting it to nil, here is the complete backtrace of an uncompiled org (I simply erased all elc files, that sufficient, right?) Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil) goto-char(nil) (progn (goto-char contents-end) (skip-chars-forward " \n" limit) (if (= (point) limit) limit (line-beginning-position))) (let* ((struct (or structure (org-element--list-struct limit))) (type (cond ((org-looking-at-p "[ ]*[A-Za-z0-9]") (quote ordered)) ((nth 5 (assq (point) struct)) (quote descriptive)) (t (quote unordered)))) (contents-begin (point)) (begin (car affiliated)) (contents-end (let* ((item (assq contents-begin struct)) (ind (nth 1 item)) (pos (nth 6 item))) (while (and (setq item (assq pos struct)) (= (nth 1 item) ind)) (setq pos (nth 6 item))) pos)) (end (progn (goto-char contents-end) (skip-chars-forward " \n" limit) (if (= (point) limit) limit (line-beginning-position))))) (list (quote plain-list) (nconc (list :type type :begin begin :end end :contents-begin contents-begin :contents-end contents-end :structure struct :post-blank (count-lines contents-end end) :post-affiliated contents-begin) (cdr affiliated)))) (save-excursion (let* ((struct (or structure (org-element--list-struct limit))) (type (cond ((org-looking-at-p "[ ]*[A-Za-z0-9]") (quote ordered)) ((nth 5 (assq ... struct)) (quote descriptive)) (t (quote unordered)))) (contents-begin (point)) (begin (car affiliated)) (contents-end (let* ((item (assq contents-begin struct)) (ind (nth 1 item)) (pos (nth 6 item))) (while (and (setq item ...) (= ... ind)) (setq pos (nth 6 item))) pos)) (end (progn (goto-char contents-end) (skip-chars-forward " \n" limit) (if (= (point) limit) limit (line-beginning-position))))) (list (quote plain-list) (nconc (list :type type :begin begin :end end :contents-begin contents-begin :contents-end contents-end :structure struct :post-blank (count-lines contents-end end) :post-affiliated contents-begin) (cdr affiliated))))) org-element-plain-list-parser(122 (86) ((28 2 "- " nil nil nil 51) (51 2 "-" nil nil nil 55) (55 2 "-" nil nil nil 59) (59 2 "-" nil nil nil 63) (63 2 "- " nil nil nil 99) (99 2 "- " nil nil nil 135) (135 2 "- " nil nil nil 158))) (cond ((and (cdr affiliated) (>= (point) limit)) (goto-char (car affiliated)) (org-element-keyword-parser limit nil)) ((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ ]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[ ]*#") (goto-char (match-end 0)) (cond ((looking-at "\\(?: \\|$\\)") (beginning-of-line) (org-element-comment-parser limit affiliated)) ((looking-at "\\+BEGIN_\\(\\S-+\\)") (beginning-of-line) (funcall (let* ((val ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...))) limit affiliated)) ((looking-at "\\+CALL:") (beginning-of-line) (org-element-babel-call-parser limit affiliated)) ((looking-at "\\+BEGIN:? ") (beginning-of-line) (org-element-dynamic-block-parser limit affiliated)) ((looking-at "\\+\\S-+:") (beginning-of-line) (org-element-keyword-parser limit affiliated)) (t (beginning-of-line) (org-element-paragraph-parser limit affiliated)))) ((looking-at org-footnote-definition-re) (org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-table-parser limit affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parser limit affiliated (or structure (org-element--list-struct limit)))) (t (org-element-paragraph-parser limit affiliated))) (let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond ((and (cdr affiliated) (>= (point) limit)) (goto-char (car affiliated)) (org-element-keyword-parser limit nil)) ((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ ]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[ ]*#") (goto-char (match-end 0)) (cond ((looking-at "\\(?: \\|$\\)") (beginning-of-line) (org-element-comment-parser limit affiliated)) ((looking-at "\\+BEGIN_\\(\\S-+\\)") (beginning-of-line) (funcall (let* (...) (cond ... ... ... ... ... ... ... ...)) limit affiliated)) ((looking-at "\\+CALL:") (beginning-of-line) (org-element-babel-call-parser limit affiliated)) ((looking-at "\\+BEGIN:? ") (beginning-of-line) (org-element-dynamic-block-parser limit affiliated)) ((looking-at "\\+\\S-+:") (beginning-of-line) (org-element-keyword-parser limit affiliated)) (t (beginning-of-line) (org-element-paragraph-parser limit affiliated)))) ((looking-at org-footnote-definition-re) (org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-table-parser limit affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parser limit affiliated (or structure (org-element--list-struct limit)))) (t (org-element-paragraph-parser limit affiliated)))) (cond ((eq mode (quote item)) (org-element-item-parser limit structure raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser limit)) ((eq mode (quote node-property)) (org-element-node-property-parser limit)) ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p))) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (quote section)) (org-element-section-parser limit)) ((eq mode (quote first-section)) (org-element-section-parser (or (save-excursion (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* (... ... ... ...) (outline-next-heading)))) limit))) ((and (eq mode (quote planning)) (looking-at org-planning-line-re)) (org-element-planning-parser limit)) ((and (memq mode (quote (planning property-drawer))) (looking-at org-property-drawer-re)) (org-element-property-drawer-parser limit)) ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-p) (org-element-inlinetask-parser limit raw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond ((and (cdr affiliated) (>= (point) limit)) (goto-char (car affiliated)) (org-element-keyword-parser limit nil)) ((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ ]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[ ]*#") (goto-char (match-end 0)) (cond ((looking-at "\\(?: \\|$\\)") (beginning-of-line) (org-element-comment-parser limit affiliated)) ((looking-at "\\+BEGIN_\\(\\S-+\\)") (beginning-of-line) (funcall ... limit affiliated)) ((looking-at "\\+CALL:") (beginning-of-line) (org-element-babel-call-parser limit affiliated)) ((looking-at "\\+BEGIN:? ") (beginning-of-line) (org-element-dynamic-block-parser limit affiliated)) ((looking-at "\\+\\S-+:") (beginning-of-line) (org-element-keyword-parser limit affiliated)) (t (beginning-of-line) (org-element-paragraph-parser limit affiliated)))) ((looking-at org-footnote-definition-re) (org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-table-parser limit affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parser limit affiliated (or structure (org-element--list-struct limit)))) (t (org-element-paragraph-parser limit affiliated)))))) (let ((case-fold-search t) (raw-secondary-p (and granularity (not (eq granularity (quote object)))))) (cond ((eq mode (quote item)) (org-element-item-parser limit structure raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser limit)) ((eq mode (quote node-property)) (org-element-node-property-parser limit)) ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p))) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (quote section)) (org-element-section-parser limit)) ((eq mode (quote first-section)) (org-element-section-parser (or (save-excursion (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ... ...))) limit))) ((and (eq mode (quote planning)) (looking-at org-planning-line-re)) (org-element-planning-parser limit)) ((and (memq mode (quote (planning property-drawer))) (looking-at org-property-drawer-re)) (org-element-property-drawer-parser limit)) ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-p) (org-element-inlinetask-parser limit raw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond ((and (cdr affiliated) (>= ... limit)) (goto-char (car affiliated)) (org-element-keyword-parser limit nil)) ((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ ]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[ ]*#") (goto-char (match-end 0)) (cond (... ... ...) (... ... ...) (... ... ...) (... ... ...) (... ... ...) (t ... ...))) ((looking-at org-footnote-definition-re) (org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-table-parser limit affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parser limit affiliated (or structure ...))) (t (org-element-paragraph-parser limit affiliated))))))) (save-excursion (let ((case-fold-search t) (raw-secondary-p (and granularity (not (eq granularity (quote object)))))) (cond ((eq mode (quote item)) (org-element-item-parser limit structure raw-secondary-p)) ((eq mode (quote table-row)) (org-element-table-row-parser limit)) ((eq mode (quote node-property)) (org-element-node-property-parser limit)) ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (org-at-heading-p))) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (quote section)) (org-element-section-parser limit)) ((eq mode (quote first-section)) (org-element-section-parser (or (save-excursion (progn ... ... ... ... ...)) limit))) ((and (eq mode (quote planning)) (looking-at org-planning-line-re)) (org-element-planning-parser limit)) ((and (memq mode (quote (planning property-drawer))) (looking-at org-property-drawer-re)) (org-element-property-drawer-parser limit)) ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) ((looking-at org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-p) (org-element-inlinetask-parser limit raw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-keywords limit))) (cond ((and ... ...) (goto-char ...) (org-element-keyword-parser limit nil)) ((looking-at org-element--latex-begin-environment) (org-element-latex-environment-parser limit affiliated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ ]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((looking-at "[ ]*#") (goto-char ...) (cond ... ... ... ... ... ...)) ((looking-at org-footnote-definition-re) (org-element-footnote-definition-parser limit affiliated)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit affiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser limit affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-table-parser limit affiliated)) ((looking-at ...) (org-element-plain-list-parser limit affiliated ...)) (t (org-element-paragraph-parser limit affiliated)))))))) org-element--current-element(122 element nil ((28 2 "- " nil nil nil 51) (51 2 "-" nil nil nil 55) (55 2 "-" nil nil nil 59) (59 2 "-" nil nil nil 63) (63 2 "- " nil nil nil 99) (99 2 "- " nil nil nil 135) (135 2 "- " nil nil nil 158))) (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (if element nil (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (while t (if syncp (progn (cond ((= (point) pos) (throw (quote exit) parent)) ((org-element--cache-interrupt-p time-limit) (throw (quote interrupt) nil))))) (if element nil (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end (org-element-property :end element)) (type (org-element-type element))) (cond ((and (<= elem-end pos) (/= (point-max) elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode type nil))) ((not (memq type org-element-greater-elements)) (throw (quote exit) element)) ((let ((cbeg (org-element-property :contents-begin element)) (cend (org-element-property :contents-end element))) (if (or syncp (and cbeg cend ... ...)) (progn (goto-char ...) (setq next nil mode ... parent element end cend))))) (t (throw (quote exit) element)))) (setq element nil)) (let ((end (or (org-element-property :end element) (save-excursion (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* (... ... ... ...) (outline-next-heading))) (point)))) (parent element)) (while t (if syncp (progn (cond ((= (point) pos) (throw (quote exit) parent)) ((org-element--cache-interrupt-p time-limit) (throw (quote interrupt) nil))))) (if element nil (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end (org-element-property :end element)) (type (org-element-type element))) (cond ((and (<= elem-end pos) (/= (point-max) elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode type nil))) ((not (memq type org-element-greater-elements)) (throw (quote exit) element)) ((let ((cbeg ...) (cend ...)) (if (or syncp ...) (progn ... ...)))) (t (throw (quote exit) element)))) (setq element nil))) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-property :begin cached)) element next mode) (cond ((not cached) (if (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (outline-previous-heading))) (progn (setq mode (quote planning)) (forward-line))) (skip-chars-forward " \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp (org-element-property :parent cached) cached))) ((re-search-backward (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) org-outline-regexp-bol)) begin t) (forward-line) (skip-chars-forward " \n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos (if (= ... pos) (1- pos) pos))) (goto-char (or (org-element-property :contents-begin cached) begin)) (while (let ((end ...)) (and (<= end pos) (goto-char end) (setq up ...)))) (cond ((not up)) ((eobp) (setq element up)) (t (setq element up next (point))))))) (let ((end (or (org-element-property :end element) (save-excursion (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ... ...)) (point)))) (parent element)) (while t (if syncp (progn (cond ((= ... pos) (throw ... parent)) ((org-element--cache-interrupt-p time-limit) (throw ... nil))))) (if element nil (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end (org-element-property :end element)) (type (org-element-type element))) (cond ((and (<= elem-end pos) (/= ... elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode type nil))) ((not (memq type org-element-greater-elements)) (throw (quote exit) element)) ((let (... ...) (if ... ...))) (t (throw (quote exit) element)))) (setq element nil)))) (save-restriction (widen) (goto-char pos) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-property :begin cached)) element next mode) (cond ((not cached) (if (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* (... ... ... ...) (outline-previous-heading))) (progn (setq mode (quote planning)) (forward-line))) (skip-chars-forward " \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp (org-element-property :parent cached) cached))) ((re-search-backward (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* (... ... ... ...) org-outline-regexp-bol)) begin t) (forward-line) (skip-chars-forward " \n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos (if ... ... pos))) (goto-char (or (org-element-property :contents-begin cached) begin)) (while (let (...) (and ... ... ...))) (cond ((not up)) ((eobp) (setq element up)) (t (setq element up next ...)))))) (let ((end (or (org-element-property :end element) (save-excursion (progn ... ... ... ... ...) (point)))) (parent element)) (while t (if syncp (progn (cond (... ...) (... ...)))) (if element nil (setq element (org-element--current-element end (quote element) mode (org-element-property :structure parent))) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end (org-element-property :end element)) (type (org-element-type element))) (cond ((and ... ...) (goto-char elem-end) (setq mode ...)) ((not ...) (throw ... element)) ((let ... ...)) (t (throw ... element)))) (setq element nil))))) (save-excursion (save-restriction (widen) (goto-char pos) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-property :begin cached)) element next mode) (cond ((not cached) (if (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ... ...)) (progn (setq mode ...) (forward-line))) (skip-chars-forward " \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp (org-element-property :parent cached) cached))) ((re-search-backward (progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ... org-outline-regexp-bol)) begin t) (forward-line) (skip-chars-forward " \n") (beginning-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos ...)) (goto-char (or ... begin)) (while (let ... ...)) (cond (...) (... ...) (t ...))))) (let ((end (or (org-element-property :end element) (save-excursion ... ...))) (parent element)) (while t (if syncp (progn (cond ... ...))) (if element nil (setq element (org-element--current-element end ... mode ...)) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let ((elem-end ...) (type ...)) (cond (... ... ...) (... ...) (...) (t ...))) (setq element nil)))))) (catch (quote exit) (save-excursion (save-restriction (widen) (goto-char pos) (let* ((cached (and (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-property :begin cached)) element next mode) (cond ((not cached) (if (progn ... ... ... ... ...) (progn ... ...)) (skip-chars-forward " \n") (beginning-of-line)) ((= pos begin) (throw (quote exit) (if syncp ... cached))) ((re-search-backward (progn ... ... ... ... ...) begin t) (forward-line) (skip-chars-forward " \n") (beginning-of-line) (setq mode (quote planning))) (t (let (... ...) (goto-char ...) (while ...) (cond ... ... ...)))) (let ((end (or ... ...)) (parent element)) (while t (if syncp (progn ...)) (if element nil (setq element ...) (org-element-put-property element :parent parent) (org-element--cache-put element)) (let (... ...) (cond ... ... ... ...)) (setq element nil))))))) org-element--parse-to(94) (cond ((bobp) nil) ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p))) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (org-element--parse-to origin))) (let ((origin (point))) (end-of-line) (skip-chars-backward " \n") (cond ((bobp) nil) ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p))) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (org-element--parse-to origin)))) (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-chars-backward " \n") (cond ((bobp) nil) ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (org-at-heading-p))) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (org-element--cache-sync ... origin)))) (org-element--parse-to origin))))) (save-excursion (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-chars-backward " \n") (cond ((bobp) nil) ((progn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* (... ... ... ...) (org-at-heading-p))) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn (if ... ... ...))) (org-element--parse-to origin)))))) org-element-at-point() (or element (org-element-at-point)) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-property :post-affiliated element))) (cond ((and post (< pos post)) (beginning-of-line) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (member-ignore-case (match-string 1) org-element-parsed-keywords)) (throw (quote objects-forbidden) element)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= pos (match-beginning 2)) (< pos (match-end 2))) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw (quote objects-forbidden) element))) (setq type (quote keyword))) ((eq type (quote item)) (let ((tag (org-element-property :tag element))) (if (or (not tag) (/= (line-beginning-position) post)) (throw (quote objects-forbidden) element) (beginning-of-line) (search-forward tag (line-end-position)) (goto-char (match-beginning 0)) (if (and (>= pos ...) (< pos ...)) (narrow-to-region (point) (match-end 0)) (throw (quote objects-forbidden) element))))) ((memq type (quote (headline inlinetask))) (goto-char (org-element-property :begin element)) (looking-at org-complex-heading-regexp) (let ((end (match-end 4))) (if (not end) (throw (quote objects-forbidden) element) (goto-char (match-beginning 4)) (if (let (case-fold-search) (looking-at org-comment-string)) (progn (goto-char ...))) (if (>= (point) end) (throw (quote objects-forbidden) element) (narrow-to-region (point) end))))) ((memq type (quote (paragraph table-row verse-block))) (let ((cbeg (org-element-property :contents-begin element)) (cend (org-element-property :contents-end element))) (if (and cbeg cend (>= pos cbeg) (or (< pos cend) (and ... ...))) (narrow-to-region cbeg cend) (throw (quote objects-forbidden) element)))) ((eq type (quote planning)) (let ((--dolist-tail-- (quote (:closed :deadline :scheduled)))) (while --dolist-tail-- (let ((p ...)) (let (...) (if ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) (throw (quote objects-forbidden) element)) (t (throw (quote objects-forbidden) element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) (cache (cond ((not (org-element--cache-active-p)) nil) (org-element--cache-objects (gethash element org-element--cache-objects)) (t (org-element-cache-reset) nil))) next object-data last) (prog1 (catch (quote exit) (while t (if next nil (let (...) (if data ... ...))) (catch (quote found) (if next (setq next ...) (let ... ...)) (if next (progn ... ...) (setcar ... t))) (if (or (not next) (> ... pos)) (throw (quote exit) (or last parent)) (let (... ... ...) (cond ... ... ...))))) (org-element--cache-put element cache)))) (save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-property :post-affiliated element))) (cond ((and post (< pos post)) (beginning-of-line) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (member-ignore-case ... org-element-parsed-keywords)) (throw (quote objects-forbidden) element)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= pos ...) (< pos ...)) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw (quote objects-forbidden) element))) (setq type (quote keyword))) ((eq type (quote item)) (let ((tag (org-element-property :tag element))) (if (or (not tag) (/= ... post)) (throw (quote objects-forbidden) element) (beginning-of-line) (search-forward tag (line-end-position)) (goto-char (match-beginning 0)) (if (and ... ...) (narrow-to-region ... ...) (throw ... element))))) ((memq type (quote (headline inlinetask))) (goto-char (org-element-property :begin element)) (looking-at org-complex-heading-regexp) (let ((end (match-end 4))) (if (not end) (throw (quote objects-forbidden) element) (goto-char (match-beginning 4)) (if (let ... ...) (progn ...)) (if (>= ... end) (throw ... element) (narrow-to-region ... end))))) ((memq type (quote (paragraph table-row verse-block))) (let ((cbeg (org-element-property :contents-begin element)) (cend (org-element-property :contents-end element))) (if (and cbeg cend (>= pos cbeg) (or ... ...)) (narrow-to-region cbeg cend) (throw (quote objects-forbidden) element)))) ((eq type (quote planning)) (let ((--dolist-tail-- (quote ...))) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...)))) (throw (quote objects-forbidden) element)) (t (throw (quote objects-forbidden) element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) (cache (cond ((not ...) nil) (org-element--cache-objects (gethash element org-element--cache-objects)) (t (org-element-cache-reset) nil))) next object-data last) (prog1 (catch (quote exit) (while t (if next nil (let ... ...)) (catch (quote found) (if next ... ...) (if next ... ...)) (if (or ... ...) (throw ... ...) (let ... ...)))) (org-element--cache-put element cache))))) (save-excursion (save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-property :post-affiliated element))) (cond ((and post (< pos post)) (beginning-of-line) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not ...) (throw ... element)) ((< ... pos) (narrow-to-region ... ...)) ((and ... ... ...) (narrow-to-region ... ...)) (t (throw ... element))) (setq type (quote keyword))) ((eq type (quote item)) (let ((tag ...)) (if (or ... ...) (throw ... element) (beginning-of-line) (search-forward tag ...) (goto-char ...) (if ... ... ...)))) ((memq type (quote (headline inlinetask))) (goto-char (org-element-property :begin element)) (looking-at org-complex-heading-regexp) (let ((end ...)) (if (not end) (throw ... element) (goto-char ...) (if ... ...) (if ... ... ...)))) ((memq type (quote (paragraph table-row verse-block))) (let ((cbeg ...) (cend ...)) (if (and cbeg cend ... ...) (narrow-to-region cbeg cend) (throw ... element)))) ((eq type (quote planning)) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))) (throw (quote objects-forbidden) element)) (t (throw (quote objects-forbidden) element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) (cache (cond (... nil) (org-element--cache-objects ...) (t ... nil))) next object-data last) (prog1 (catch (quote exit) (while t (if next nil ...) (catch ... ... ...) (if ... ... ...))) (org-element--cache-put element cache)))))) (catch (quote objects-forbidden) (save-excursion (save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-property :post-affiliated element))) (cond ((and post (< pos post)) (beginning-of-line) (let (...) (looking-at org-element--affiliated-re)) (cond (... ...) (... ...) (... ...) (t ...)) (setq type (quote keyword))) ((eq type (quote item)) (let (...) (if ... ... ... ... ... ...))) ((memq type (quote ...)) (goto-char (org-element-property :begin element)) (looking-at org-complex-heading-regexp) (let (...) (if ... ... ... ... ...))) ((memq type (quote ...)) (let (... ...) (if ... ... ...))) ((eq type (quote planning)) (let (...) (while --dolist-tail-- ...)) (throw (quote objects-forbidden) element)) (t (throw (quote objects-forbidden) element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) (cache (cond ... ... ...)) next object-data last) (prog1 (catch (quote exit) (while t ... ... ...)) (org-element--cache-put element cache))))))) org-element-context() (progn (org-element-context)) (unwind-protect (progn (org-element-context)) (set-match-data save-match-data-internal (quote evaporate))) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-element-context)) (set-match-data save-match-data-internal (quote evaporate)))) (let* ((element (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-element-context)) (set-match-data save-match-data-internal (quote evaporate))))) (type (org-element-type element)) (begin (copy-marker (org-element-property :begin element))) (end (copy-marker (save-excursion (goto-char (org-element-property :end element)) (skip-chars-backward " \n") (point))))) (cond ((eql type (quote inline-src-block)) (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and ... ...) (org-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1 info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export info ...))) (if (equal replacement "") (delete-region begin (progn ... ... ...)) (delete-region begin end) (insert replacement))))) ((memql type (quote (babel-call inline-babel-call))) (let* ((lob-info (org-babel-lob-get-info element)) (results (org-babel-exp-do-export (list "emacs-lisp" "results" ... "" ... ...) (quote lob))) (rep (org-fill-template org-babel-exp-call-line-template (list ...)))) (if (equal rep "") (delete-region begin (progn (goto-char end) (if ... ... ... ...))) (goto-char begin) (delete-region begin end) (insert rep)))) ((eql type (quote src-block)) (let* ((match-start (copy-marker (match-beginning 0))) (ind (org-get-indentation)) (lang (or (org-element-property :language element) (user-error "No language for src block: %s" ...))) (headers (cons lang (let ... ...)))) (let ((replacement (progn ... ...))) (cond ((not replacement) (goto-char end)) ((equal replacement "") (goto-char end) (skip-chars-forward " \n") (beginning-of-line) (delete-region begin ...)) (t (goto-char match-start) (delete-region ... ...) (insert replacement) (if ... ... ...)))) (set-marker match-start nil)))) (set-marker begin nil) (set-marker end nil)) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p)) (set-match-data save-match-data-internal (quote evaporate)))) nil (let* ((element (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-element-context)) (set-match-data save-match-data-internal (quote evaporate))))) (type (org-element-type element)) (begin (copy-marker (org-element-property :begin element))) (end (copy-marker (save-excursion (goto-char (org-element-property :end element)) (skip-chars-backward " \n") (point))))) (cond ((eql type (quote inline-src-block)) (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 info))) (let* ((c ...)) (setcar c (if ... ... ...))) (goto-char begin) (let ((replacement ...)) (if (equal replacement "") (delete-region begin ...) (delete-region begin end) (insert replacement))))) ((memql type (quote (babel-call inline-babel-call))) (let* ((lob-info (org-babel-lob-get-info element)) (results (org-babel-exp-do-export ... ...)) (rep (org-fill-template org-babel-exp-call-line-template ...))) (if (equal rep "") (delete-region begin (progn ... ...)) (goto-char begin) (delete-region begin end) (insert rep)))) ((eql type (quote src-block)) (let* ((match-start (copy-marker ...)) (ind (org-get-indentation)) (lang (or ... ...)) (headers (cons lang ...))) (let ((replacement ...)) (cond (... ...) (... ... ... ... ...) (t ... ... ... ...))) (set-marker match-start nil)))) (set-marker begin nil) (set-marker end nil))) (while (re-search-forward regexp nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p)) (set-match-data save-match-data-internal (quote evaporate)))) nil (let* ((element (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...)))) (type (org-element-type element)) (begin (copy-marker (org-element-property :begin element))) (end (copy-marker (save-excursion (goto-char ...) (skip-chars-backward " \n") (point))))) (cond ((eql type (quote inline-src-block)) (let* ((info ...) (params ...)) (let* (...) (setcar c ...)) (goto-char begin) (let (...) (if ... ... ... ...)))) ((memql type (quote (babel-call inline-babel-call))) (let* ((lob-info ...) (results ...) (rep ...)) (if (equal rep "") (delete-region begin ...) (goto-char begin) (delete-region begin end) (insert rep)))) ((eql type (quote src-block)) (let* ((match-start ...) (ind ...) (lang ...) (headers ...)) (let (...) (cond ... ... ...)) (set-marker match-start nil)))) (set-marker begin nil) (set-marker end nil)))) (let ((case-fold-search t) (org-babel-exp-reference-buffer reference-buffer) (regexp "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while (re-search-forward regexp nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p)) (set-match-data save-match-data-internal (quote evaporate)))) nil (let* ((element (let (...) (unwind-protect ... ...))) (type (org-element-type element)) (begin (copy-marker (org-element-property :begin element))) (end (copy-marker (save-excursion ... ... ...)))) (cond ((eql type (quote inline-src-block)) (let* (... ...) (let* ... ...) (goto-char begin) (let ... ...))) ((memql type (quote ...)) (let* (... ... ...) (if ... ... ... ... ...))) ((eql type (quote src-block)) (let* (... ... ... ...) (let ... ...) (set-marker match-start nil)))) (set-marker begin nil) (set-marker end nil))))) (save-excursion (let ((case-fold-search t) (org-babel-exp-reference-buffer reference-buffer) (regexp "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while (re-search-forward regexp nil t) (if (let ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in-commented-heading-p)) (set-match-data save-match-data-internal (quote evaporate)))) nil (let* ((element (let ... ...)) (type (org-element-type element)) (begin (copy-marker ...)) (end (copy-marker ...))) (cond ((eql type ...) (let* ... ... ... ...)) ((memql type ...) (let* ... ...)) ((eql type ...) (let* ... ... ...))) (set-marker begin nil) (set-marker end nil)))))) (progn (save-excursion (let ((case-fold-search t) (org-babel-exp-reference-buffer reference-buffer) (regexp "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while (re-search-forward regexp nil t) (if (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-internal ...))) nil (let* ((element ...) (type ...) (begin ...) (end ...)) (cond (... ...) (... ...) (... ...)) (set-marker begin nil) (set-marker end nil))))))) (unwind-protect (progn (save-excursion (let ((case-fold-search t) (org-babel-exp-reference-buffer reference-buffer) (regexp "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while (re-search-forward regexp nil t) (if (let (...) (unwind-protect ... ...)) nil (let* (... ... ... ...) (cond ... ... ...) (set-marker begin nil) (set-marker end nil))))))) (set-window-configuration wconfig)) (let ((wconfig (current-window-configuration))) (unwind-protect (progn (save-excursion (let ((case-fold-search t) (org-babel-exp-reference-buffer reference-buffer) (regexp "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while (re-search-forward regexp nil t) (if (let ... ...) nil (let* ... ... ... ...)))))) (set-window-configuration wconfig))) org-babel-exp-process-buffer(#<2>>) (unwind-protect (org-babel-exp-process-buffer reference) (kill-buffer reference)) (let ((reference (org-export-copy-buffer))) (unwind-protect (org-babel-exp-process-buffer reference) (kill-buffer reference))) org-export-execute-babel-code() (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn nil (or (progn nil (and (vectorp backend) (>= (length backend) 8) (memq (aref backend 0) cl-struct-org-export-backend-tags) t)) (signal (quote wrong-type-argument) (list (quote org-export-backend) backend))) (aref backend 1))) (org-export-expand-include-keyword) (org-export--delete-comments) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn nil (or (progn nil (and (vectorp backend) (>= ... 8) (memq ... cl-struct-org-export-backend-tags) t)) (signal (quote wrong-type-argument) (list (quote org-export-backend) backend))) (aref backend 1)))) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (let ((backend-name (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... backend))) (aref backend 1)))) (let ((--dolist-tail-- (plist-get info :filter-options))) (while --dolist-tail-- (let ((filter (car --dolist-tail--))) (let ((result ...)) (if result (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (let* ((date (plist-get info :date)) (value (or ... ""))) (if (and (consp date) (not ...) (eq ... ...)) (format "(eval (if (org-string-nw-p \"$1\") %s %S))" (format "(org-timestamp-format '%S \"$1\")" ...) value) value))) (cons "email" (org-element-interpret-data (plist-get info :email))) (cons "title" (org-element-interpret-data (plist-get info :title))) (cons "results" "$1")) (quote finalize) parsed-keywords) (setq tree (org-element-parse-buffer nil visible-only)) (org-export--merge-external-footnote-definitions tree) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties tree info)) (let* ((body (org-element-normalize-string (or (org-export-data tree info) ""))) (inner-template (cdr (assq (quote inner-template) (plist-get info :translate-alist)))) (full-body (org-export-filter-apply-functions (plist-get info :filter-body) (if (not (functionp inner-template)) body (funcall inner-template body info)) info)) (template (cdr (assq (quote template) (plist-get info :translate-alist))))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if (or (not (functionp template)) body-only) full-body (funcall template full-body info)) info)))) (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn nil (or (progn nil (and (vectorp backend) (>= ... 8) (memq ... cl-struct-org-export-backend-tags) t)) (signal (quote wrong-type-argument) (list (quote org-export-backend) backend))) (aref backend 1))) (org-export-expand-include-keyword) (org-export--delete-comments) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... backend))) (aref backend 1)))) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (let ((backend-name (progn nil (or (progn nil ...) (signal ... ...)) (aref backend 1)))) (let ((--dolist-tail-- (plist-get info :filter-options))) (while --dolist-tail-- (let ((filter ...)) (let (...) (if result ...)) (setq --dolist-tail-- (cdr --dolist-tail--)))))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (let* ((date ...) (value ...)) (if (and ... ... ...) (format "(eval (if (org-string-nw-p \"$1\") %s %S))" ... value) value))) (cons "email" (org-element-interpret-data (plist-get info :email))) (cons "title" (org-element-interpret-data (plist-get info :title))) (cons "results" "$1")) (quote finalize) parsed-keywords) (setq tree (org-element-parse-buffer nil visible-only)) (org-export--merge-external-footnote-definitions tree) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties tree info)) (let* ((body (org-element-normalize-string (or (org-export-data tree info) ""))) (inner-template (cdr (assq (quote inner-template) (plist-get info :translate-alist)))) (full-body (org-export-filter-apply-functions (plist-get info :filter-body) (if (not ...) body (funcall inner-template body info)) info)) (template (cdr (assq (quote template) (plist-get info :translate-alist))))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if (or (not ...) body-only) full-body (funcall template full-body info)) info))))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... backend))) (aref backend 1))) (org-export-expand-include-keyword) (org-export--delete-comments) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn nil (or (progn nil ...) (signal ... ...)) (aref backend 1)))) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (let ((backend-name (progn nil (or ... ...) (aref backend 1)))) (let ((--dolist-tail-- (plist-get info :filter-options))) (while --dolist-tail-- (let (...) (let ... ...) (setq --dolist-tail-- ...))))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data (plist-get info :author))) (cons "date" (let* (... ...) (if ... ... value))) (cons "email" (org-element-interpret-data (plist-get info :email))) (cons "title" (org-element-interpret-data (plist-get info :title))) (cons "results" "$1")) (quote finalize) parsed-keywords) (setq tree (org-element-parse-buffer nil visible-only)) (org-export--merge-external-footnote-definitions tree) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties tree info)) (let* ((body (org-element-normalize-string (or ... ""))) (inner-template (cdr (assq ... ...))) (full-body (org-export-filter-apply-functions (plist-get info :filter-body) (if ... body ...) info)) (template (cdr (assq ... ...)))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if (or ... body-only) full-body (funcall template full-body info)) info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn nil (or (progn nil ...) (signal ... ...)) (aref backend 1))) (org-export-expand-include-keyword) (org-export--delete-comments) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn nil (or ... ...) (aref backend 1)))) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-export-install-filters (org-combine-plists info (org-export-get-environment backend subtreep ext-plist)))) (let ((backend-name (progn nil ... ...))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...)))) (org-macro-replace-all (list (cons "author" (org-element-interpret-data ...)) (cons "date" (let* ... ...)) (cons "email" (org-element-interpret-data ...)) (cons "title" (org-element-interpret-data ...)) (cons "results" "$1")) (quote finalize) parsed-keywords) (setq tree (org-element-parse-buffer nil visible-only)) (org-export--merge-external-footnote-definitions tree) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties tree info)) (let* ((body (org-element-normalize-string ...)) (inner-template (cdr ...)) (full-body (org-export-filter-apply-functions ... ... info)) (template (cdr ...))) (org-no-properties (org-export-filter-apply-functions (plist-get info :filter-final-output) (if ... full-body ...) info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))) (let* ((org-export-current-backend (progn nil (or (progn nil (and (vectorp backend) (>= ... 8) (memq ... cl-struct-org-export-backend-tags) t)) (signal (quote wrong-type-argument) (list (quote org-export-backend) backend))) (aref backend 1))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar (function (lambda (o) (and ... ...))) (append (org-export-get-all-options backend) org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn nil (or ... ...) (aref backend 1))) (org-export-expand-include-keyword) (org-export--delete-comments) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-hook) (progn nil ... ...))) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-export-install-filters (org-combine-plists info ...))) (let ((backend-name ...)) (let (...) (while --dolist-tail-- ...))) (org-macro-replace-all (list (cons "author" ...) (cons "date" ...) (cons "email" ...) (cons "title" ...) (cons "results" "$1")) (quote finalize) parsed-keywords) (setq tree (org-element-parse-buffer nil visible-only)) (org-export--merge-external-footnote-definitions tree) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (setq info (org-export--collect-tree-properties tree info)) (let* ((body ...) (inner-template ...) (full-body ...) (template ...)) (org-no-properties (org-export-filter-apply-functions ... ... info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy)))))) (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-type-argument) (list ... backend))) (aref backend 1))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar (function (lambda ... ...)) (append (org-export-get-all-options backend) org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-export-before-processing-hook) (progn nil ... ...)) (org-export-expand-include-keyword) (org-export--delete-comments) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args ... ...)) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info (org-export-install-filters ...)) (let (...) (let ... ...)) (org-macro-replace-all (list ... ... ... ... ...) (quote finalize) parsed-keywords) (setq tree (org-element-parse-buffer nil visible-only)) (org-export--merge-external-footnote-definitions tree) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-functions ... tree info)) (setq info (org-export--collect-tree-properties tree info)) (let* (... ... ... ...) (org-no-properties ...)))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf-copy))))))) (save-excursion (save-restriction (cond ((org-region-active-p) (narrow-to-region (region-beginning) (region-end))) (subtreep (org-narrow-to-subtree) (goto-char (point-min)) (forward-line) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-backend (progn nil (or (progn nil ...) (signal ... ...)) (aref backend 1))) (info (org-combine-plists (org-export--get-export-attributes backend subtreep visible-only body-only) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (mapcar (function ...) (append ... org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args ... ...) (org-export-expand-include-keyword) (org-export--delete-comments) (org-macro-initialize-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-regexp) (goto-char ...) (save-excursion ...) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info ...) (let ... ...) (org-macro-replace-all ... ... parsed-keywords) (setq tree ...) (org-export--merge-external-footnote-definitions tree) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) (setq tree ...) (setq info ...) (let* ... ...))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer ... ...) (kill-buffer --buf-copy)))))))) org-export-as(html nil nil nil (:output-file "./org-bug2.html")) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output) (let ((coding-system-for-write encoding)) (write-file file))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file)) (if async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message (current-message)) (message "%s" with-temp-message))) (let ((--copy-fun (org-export--generate-copy-script ...)) (--temp-file (make-temp-file "org-export-process")) (--coding buffer-file-coding-system)) (let ((temp-file --temp-file) (temp-buffer ...)) (unwind-protect (prog1 ... ...) (and ... ...))) (let* ((process-connection-type nil) (--proc-buffer ...) (--process ...)) (org-export-add-to-stack (get-buffer --proc-buffer) nil --process) (let (...) (set-process-sentinel --process ...))))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output) (let (...) (write-file file))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file))) (let ((ext-plist (org-combine-plists (list (quote :output-file) file) ext-plist)) (encoding (or org-export-coding-system buffer-file-coding-system))) (if async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message ...) (message "%s" with-temp-message))) (let ((--copy-fun ...) (--temp-file ...) (--coding buffer-file-coding-system)) (let (... ...) (unwind-protect ... ...)) (let* (... ... ...) (org-export-add-to-stack ... nil --process) (let ... ...)))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert output) (let ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file)))) (if (not (file-writable-p file)) (error "Output file not writable") (let ((ext-plist (org-combine-plists (list (quote :output-file) file) ext-plist)) (encoding (or org-export-coding-system buffer-file-coding-system))) (if async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn ... ...)) (let (... ... ...) (let ... ...) (let* ... ... ...))) (and with-temp-message (if current-message (message "%s" current-message) (message nil))))) (let ((output (org-export-as backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...)))) (if (and (org-export--copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-process) (funcall post-process file)) file))))) org-export-to-file(html "./org-bug2.html" nil nil nil nil nil) (let* ((extension (concat "." (or (plist-get ext-plist :html-extension) org-html-extension "html"))) (file (org-export-output-file-name extension subtreep)) (org-export-coding-system org-html-coding-system)) (org-export-to-file (quote html) file async subtreep visible-only body-only ext-plist)) org-html-export-to-html(nil nil nil nil) funcall(org-html-export-to-html nil nil nil nil) (save-excursion (if arg (progn (if (eq (marker-buffer org-export-dispatch-last-position) (org-base-buffer (current-buffer))) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t))) (cond ((eql action (quote template)) (org-export-insert-default-template nil optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action (quote publish-current-file)) (org-publish-current-file (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-current-project)) (org-publish-current-project (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc (completing-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force) optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq (marker-buffer org-export-dispatch-last-position) (org-base-buffer ...)) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t))))) (let* ((input (cond ((equal arg (quote (16))) (quote (stack))) ((and arg org-export-dispatch-last-action)) (t (let ((wconfig ...)) (unwind-protect (progn ...) (set-window-configuration wconfig)))))) (action (car input)) (optns (cdr input))) (if (memq (quote subtree) optns) nil (move-marker org-export-dispatch-last-position nil)) (cond ((eql action (quote template)) (org-export-insert-default-template nil optns)) ((eql action (quote stack)) (org-export-stack)) ((eql action (quote publish-current-file)) (org-publish-current-file (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-current-project)) (org-publish-current-project (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-choose-project)) (org-publish (assoc (completing-read "Publish project: " org-publish-project-alist nil t) org-publish-project-alist) (memq (quote force) optns) (memq (quote async) optns))) ((eql action (quote publish-all)) (org-publish-all (memq (quote force) optns) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq ... ...) (goto-char org-export-dispatch-last-position) (move-marker org-export-dispatch-last-position nil)))) (funcall action (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (and (memq (quote body) optns) t)))))) org-export-dispatch(nil) funcall-interactively(org-export-dispatch nil) #(org-export-dispatch nil nil) ad-Advice-call-interactively(# org-export-dispatch nil nil) apply(ad-Advice-call-interactively # (org-export-dispatch nil nil)) call-interactively(org-export-dispatch nil nil) command-execute(org-export-dispatch) Thanks a lot!! On Thu, Mar 10, 2016 at 1:19 AM Nicolas Goaziou wrote: > Hello, > > Shlomi Vaknin writes: > > > I managed to make another non-working example (should I make > > a gif showing what I see?): > > > > --------------------------------------- > > - src_elisp{3} {{{results(=3=)}}} > > > > * B > > - src_elisp{3} {{{results(=3=)}}} > > - > > - > > - > > - src_elisp{3} {{{results(=3=)}}} > > - src_elisp{2} {{{results(=2=)}}} > > - {{{results(=2=)}}} > > --------------------------------------- > > > > again, removing any line from this makes export work again. Otherwise I > get > > =org-element--current-element: Wrong type argument: integer-or-marker-p, > > nil= > > I cannot reproduce the problem. Could you send a complete backtrace with > un-compiled Org? > > Also, could you try setting `org-element-use-cache' to nil? > > Regards, > > -- > Nicolas Goaziou > --001a114a822a9053f3052dcc688c Content-Type: text/html; charset=UTF-8 Content-Transfer-Encoding: quoted-printable
Hey Nicholas,

Thanks for trying to help= !=C2=A0Setting=C2=A0org-element-use-cache to nil did the trick, it now export j= ust fine in both elpa version of org and on master, thanks!

Without setting it to nil, here is the complete backtrace of an uncompiled org (I simply erased all e= lc files, that sufficient, right?)

Debugger = entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
=C2=A0 goto-char(nil)
=C2=A0 (progn (goto-char contents-end) (s= kip-chars-forward "=C2=A0
\n" limit) (if (=3D (point) limit) limi= t (line-beginning-position)))
=C2=A0 (let* ((struct (or structure= (org-element--list-struct limit))) (type (cond ((org-looking-at-p "[ = ]*[A-Za-z0= -9]") (quote ordered)) ((nth 5 (assq (point) struct)) (quote descripti= ve)) (t (quote unordered)))) (contents-begin (point)) (begin (car affiliate= d)) (contents-end (let* ((item (assq contents-begin struct)) (ind (nth 1 it= em)) (pos (nth 6 item))) (while (and (setq item (assq pos struct)) (=3D (nt= h 1 item) ind)) (setq pos (nth 6 item))) pos)) (end (progn (goto-char conte= nts-end) (skip-chars-forward "=C2=A0
\n" limit) (if (=3D (point) = limit) limit (line-beginning-position))))) (list (quote plain-list) (nconc = (list :type type :begin begin :end end :contents-begin contents-begin :cont= ents-end contents-end :structure struct :post-blank (count-lines contents-e= nd end) :post-affiliated contents-begin) (cdr affiliated))))
=C2= =A0 (save-excursion (let* ((struct (or structure (org-element--list-struct = limit))) (type (cond ((org-looking-at-p "[ ]*[A-Za-z0-9]") (quote ordered))= ((nth 5 (assq ... struct)) (quote descriptive)) (t (quote unordered)))) (c= ontents-begin (point)) (begin (car affiliated)) (contents-end (let* ((item = (assq contents-begin struct)) (ind (nth 1 item)) (pos (nth 6 item))) (while= (and (setq item ...) (=3D ... ind)) (setq pos (nth 6 item))) pos)) (end (p= rogn (goto-char contents-end) (skip-chars-forward "=C2=A0
\n" lim= it) (if (=3D (point) limit) limit (line-beginning-position))))) (list (quot= e plain-list) (nconc (list :type type :begin begin :end end :contents-begin= contents-begin :contents-end contents-end :structure struct :post-blank (c= ount-lines contents-end end) :post-affiliated contents-begin) (cdr affiliat= ed)))))
=C2=A0 org-element-plain-list-parser(122 (86) ((28 2 &quo= t;- " nil nil nil 51) (51 2 "-" nil nil nil 55) (55 2 "= -" nil nil nil 59) (59 2 "-" nil nil nil 63) (63 2 "- &= quot; nil nil nil 99) (99 2 "- " nil nil nil 135) (135 2 "- = " nil nil nil 158)))
=C2=A0 (cond ((and (cdr affiliated) (&g= t;=3D (point) limit)) (goto-char (car affiliated)) (org-element-keyword-par= ser limit nil)) ((looking-at org-element--latex-begin-environment) (org-ele= ment-latex-environment-parser limit affiliated)) ((looking-at org-drawer-re= gexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ ]*:\\( \\|$\= \)") (org-element-fixed-width-parser limit affiliated)) ((looking-at &= quot;[ ]*#= ") (goto-char (match-end 0)) (cond ((looking-at "\\(?: \\|$\\)&qu= ot;) (beginning-of-line) (org-element-comment-parser limit affiliated)) ((l= ooking-at "\\+BEGIN_\\(\\S-+\\)") (beginning-of-line) (funcall (l= et* ((val ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (..= . ...) (... ...) (t ...))) limit affiliated)) ((looking-at "\\+CALL:&q= uot;) (beginning-of-line) (org-element-babel-call-parser limit affiliated))= ((looking-at "\\+BEGIN:? ") (beginning-of-line) (org-element-dyn= amic-block-parser limit affiliated)) ((looking-at "\\+\\S-+:") (b= eginning-of-line) (org-element-keyword-parser limit affiliated)) (t (beginn= ing-of-line) (org-element-paragraph-parser limit affiliated)))) ((looking-a= t org-footnote-definition-re) (org-element-footnote-definition-parser limit= affiliated)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser= limit affiliated)) ((looking-at "%%(") (org-element-diary-sexp-p= arser limit affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-el= ement-table-parser limit affiliated)) ((looking-at (org-item-re)) (org-elem= ent-plain-list-parser limit affiliated (or structure (org-element--list-str= uct limit)))) (t (org-element-paragraph-parser limit affiliated)))
=C2=A0 (let ((affiliated (org-element--collect-affiliated-keywords limit)= )) (cond ((and (cdr affiliated) (>=3D (point) limit)) (goto-char (car af= filiated)) (org-element-keyword-parser limit nil)) ((looking-at org-element= --latex-begin-environment) (org-element-latex-environment-parser limit affi= liated)) ((looking-at org-drawer-regexp) (org-element-drawer-parser limit a= ffiliated)) ((looking-at "[ ]*:\\( \\|$\\)") (org-element-fixed-width-parse= r limit affiliated)) ((looking-at "[ ]*#") (goto-char (match-end 0)) (cond = ((looking-at "\\(?: \\|$\\)") (beginning-of-line) (org-element-co= mment-parser limit affiliated)) ((looking-at "\\+BEGIN_\\(\\S-+\\)&quo= t;) (beginning-of-line) (funcall (let* (...) (cond ... ... ... ... ... ... = ... ...)) limit affiliated)) ((looking-at "\\+CALL:") (beginning-= of-line) (org-element-babel-call-parser limit affiliated)) ((looking-at &qu= ot;\\+BEGIN:? ") (beginning-of-line) (org-element-dynamic-block-parser= limit affiliated)) ((looking-at "\\+\\S-+:") (beginning-of-line)= (org-element-keyword-parser limit affiliated)) (t (beginning-of-line) (org= -element-paragraph-parser limit affiliated)))) ((looking-at org-footnote-de= finition-re) (org-element-footnote-definition-parser limit affiliated)) ((l= ooking-at "[ = ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit affiliated)= ) ((looking-at "%%(") (org-element-diary-sexp-parser limit affili= ated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-table-parser l= imit affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-parse= r limit affiliated (or structure (org-element--list-struct limit)))) (t (or= g-element-paragraph-parser limit affiliated))))
=C2=A0 (cond ((eq= mode (quote item)) (org-element-item-parser limit structure raw-secondary-= p)) ((eq mode (quote table-row)) (org-element-table-row-parser limit)) ((eq= mode (quote node-property)) (org-element-node-property-parser limit)) ((pr= ogn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (de= fvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-wit= h-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (= outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^&= quot; org-outline-regexp))) (org-at-heading-p))) (org-element-headline-pars= er limit raw-secondary-p)) ((eq mode (quote section)) (org-element-section-= parser limit)) ((eq mode (quote first-section)) (org-element-section-parser= (or (save-excursion (progn (defvar org-called-with-limited-levels) (defvar= org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol= ) (let* (... ... ... ...) (outline-next-heading)))) limit))) ((and (eq mode= (quote planning)) (looking-at org-planning-line-re)) (org-element-planning= -parser limit)) ((and (memq mode (quote (planning property-drawer))) (looki= ng-at org-property-drawer-re)) (org-element-property-drawer-parser limit)) = ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) ((lookin= g-at org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-= p) (org-element-inlinetask-parser limit raw-secondary-p)) (t (let ((affilia= ted (org-element--collect-affiliated-keywords limit))) (cond ((and (cdr aff= iliated) (>=3D (point) limit)) (goto-char (car affiliated)) (org-element= -keyword-parser limit nil)) ((looking-at org-element--latex-begin-environme= nt) (org-element-latex-environment-parser limit affiliated)) ((looking-at o= rg-drawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-a= t "[ = ]*:\\( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((= looking-at "[ ]*#") (goto-char (match-end 0)) (cond ((looking-at "\\(?= : \\|$\\)") (beginning-of-line) (org-element-comment-parser limit affi= liated)) ((looking-at "\\+BEGIN_\\(\\S-+\\)") (beginning-of-line)= (funcall ... limit affiliated)) ((looking-at "\\+CALL:") (beginn= ing-of-line) (org-element-babel-call-parser limit affiliated)) ((looking-at= "\\+BEGIN:? ") (beginning-of-line) (org-element-dynamic-block-pa= rser limit affiliated)) ((looking-at "\\+\\S-+:") (beginning-of-l= ine) (org-element-keyword-parser limit affiliated)) (t (beginning-of-line) = (org-element-paragraph-parser limit affiliated)))) ((looking-at org-footnot= e-definition-re) (org-element-footnote-definition-parser limit affiliated))= ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit affilia= ted)) ((looking-at "%%(") (org-element-diary-sexp-parser limit af= filiated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-table-pars= er limit affiliated)) ((looking-at (org-item-re)) (org-element-plain-list-p= arser limit affiliated (or structure (org-element--list-struct limit)))) (t= (org-element-paragraph-parser limit affiliated))))))
=C2=A0 (let= ((case-fold-search t) (raw-secondary-p (and granularity (not (eq granulari= ty (quote object)))))) (cond ((eq mode (quote item)) (org-element-item-pars= er limit structure raw-secondary-p)) ((eq mode (quote table-row)) (org-elem= ent-table-row-parser limit)) ((eq mode (quote node-property)) (org-element-= node-property-parser limit)) ((progn (defvar org-called-with-limited-levels= ) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-r= egexp-bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp (o= rg-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (org-ou= tline-regexp-bol (concat "^" org-outline-regexp))) (org-at-headin= g-p))) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (quot= e section)) (org-element-section-parser limit)) ((eq mode (quote first-sect= ion)) (org-element-section-parser (or (save-excursion (progn (defvar org-ca= lled-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regex= p) (defvar org-outline-regexp-bol) (let* ... ...))) limit))) ((and (eq mode= (quote planning)) (looking-at org-planning-line-re)) (org-element-planning= -parser limit)) ((and (memq mode (quote (planning property-drawer))) (looki= ng-at org-property-drawer-re)) (org-element-property-drawer-parser limit)) = ((not (bolp)) (org-element-paragraph-parser limit (list (point)))) ((lookin= g-at org-clock-line-re) (org-element-clock-parser limit)) ((org-at-heading-= p) (org-element-inlinetask-parser limit raw-secondary-p)) (t (let ((affilia= ted (org-element--collect-affiliated-keywords limit))) (cond ((and (cdr aff= iliated) (>=3D ... limit)) (goto-char (car affiliated)) (org-element-key= word-parser limit nil)) ((looking-at org-element--latex-begin-environment) = (org-element-latex-environment-parser limit affiliated)) ((looking-at org-d= rawer-regexp) (org-element-drawer-parser limit affiliated)) ((looking-at &q= uot;[ ]*:\= \( \\|$\\)") (org-element-fixed-width-parser limit affiliated)) ((look= ing-at "[ ]*#") (goto-char (match-end 0)) (cond (... ... ...) (... ... ...)= (... ... ...) (... ... ...) (... ... ...) (t ... ...))) ((looking-at org-f= ootnote-definition-re) (org-element-footnote-definition-parser limit affili= ated)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit a= ffiliated)) ((looking-at "%%(") (org-element-diary-sexp-parser li= mit affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-tab= le-parser limit affiliated)) ((looking-at (org-item-re)) (org-element-plain= -list-parser limit affiliated (or structure ...))) (t (org-element-paragrap= h-parser limit affiliated)))))))
=C2=A0 (save-excursion (let ((ca= se-fold-search t) (raw-secondary-p (and granularity (not (eq granularity (q= uote object)))))) (cond ((eq mode (quote item)) (org-element-item-parser li= mit structure raw-secondary-p)) ((eq mode (quote table-row)) (org-element-t= able-row-parser limit)) ((eq mode (quote node-property)) (org-element-node-= property-parser limit)) ((progn (defvar org-called-with-limited-levels) (de= fvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp= -bol) (let* ((org-called-with-limited-levels t) (org-outline-regexp ...) (o= utline-regexp org-outline-regexp) (org-outline-regexp-bol ...)) (org-at-hea= ding-p))) (org-element-headline-parser limit raw-secondary-p)) ((eq mode (q= uote section)) (org-element-section-parser limit)) ((eq mode (quote first-s= ection)) (org-element-section-parser (or (save-excursion (progn ... ... ...= ... ...)) limit))) ((and (eq mode (quote planning)) (looking-at org-planni= ng-line-re)) (org-element-planning-parser limit)) ((and (memq mode (quote (= planning property-drawer))) (looking-at org-property-drawer-re)) (org-eleme= nt-property-drawer-parser limit)) ((not (bolp)) (org-element-paragraph-pars= er limit (list (point)))) ((looking-at org-clock-line-re) (org-element-cloc= k-parser limit)) ((org-at-heading-p) (org-element-inlinetask-parser limit r= aw-secondary-p)) (t (let ((affiliated (org-element--collect-affiliated-keyw= ords limit))) (cond ((and ... ...) (goto-char ...) (org-element-keyword-par= ser limit nil)) ((looking-at org-element--latex-begin-environment) (org-ele= ment-latex-environment-parser limit affiliated)) ((looking-at org-drawer-re= gexp) (org-element-drawer-parser limit affiliated)) ((looking-at "[ ]*:\\( \\|$\= \)") (org-element-fixed-width-parser limit affiliated)) ((looking-at &= quot;[ ]*#= ") (goto-char ...) (cond ... ... ... ... ... ...)) ((looking-at org-fo= otnote-definition-re) (org-element-footnote-definition-parser limit affilia= ted)) ((looking-at "[ ]*-\\{5,\\}[ ]*$") (org-element-horizontal-rule-parser limit af= filiated)) ((looking-at "%%(") (org-element-diary-sexp-parser lim= it affiliated)) ((looking-at "[ ]*\\(|\\|\\+\\(-+\\+\\)+[ ]*$\\)") (org-element-tab= le-parser limit affiliated)) ((looking-at ...) (org-element-plain-list-pars= er limit affiliated ...)) (t (org-element-paragraph-parser limit affiliated= ))))))))
=C2=A0 org-element--current-element(122 element nil ((28= 2 "- " nil nil nil 51) (51 2 "-" nil nil nil 55) (55 2= "-" nil nil nil 59) (59 2 "-" nil nil nil 63) (63 2 &q= uot;- " nil nil nil 99) (99 2 "- " nil nil nil 135) (135 2 &= quot;- " nil nil nil 158)))
=C2=A0 (setq element (org-elemen= t--current-element end (quote element) mode (org-element-property :structur= e parent)))
=C2=A0 (if element nil (setq element (org-element--cu= rrent-element end (quote element) mode (org-element-property :structure par= ent))) (org-element-put-property element :parent parent) (org-element--cach= e-put element))
=C2=A0 (while t (if syncp (progn (cond ((=3D (poi= nt) pos) (throw (quote exit) parent)) ((org-element--cache-interrupt-p time= -limit) (throw (quote interrupt) nil))))) (if element nil (setq element (or= g-element--current-element end (quote element) mode (org-element-property := structure parent))) (org-element-put-property element :parent parent) (org-= element--cache-put element)) (let ((elem-end (org-element-property :end ele= ment)) (type (org-element-type element))) (cond ((and (<=3D elem-end pos= ) (/=3D (point-max) elem-end)) (goto-char elem-end) (setq mode (org-element= --next-mode type nil))) ((not (memq type org-element-greater-elements)) (th= row (quote exit) element)) ((let ((cbeg (org-element-property :contents-beg= in element)) (cend (org-element-property :contents-end element))) (if (or s= yncp (and cbeg cend ... ...)) (progn (goto-char ...) (setq next nil mode ..= . parent element end cend))))) (t (throw (quote exit) element)))) (setq ele= ment nil))
=C2=A0 (let ((end (or (org-element-property :end eleme= nt) (save-excursion (progn (defvar org-called-with-limited-levels) (defvar = org-outline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol)= (let* (... ... ... ...) (outline-next-heading))) (point)))) (parent elemen= t)) (while t (if syncp (progn (cond ((=3D (point) pos) (throw (quote exit) = parent)) ((org-element--cache-interrupt-p time-limit) (throw (quote interru= pt) nil))))) (if element nil (setq element (org-element--current-element en= d (quote element) mode (org-element-property :structure parent))) (org-elem= ent-put-property element :parent parent) (org-element--cache-put element)) = (let ((elem-end (org-element-property :end element)) (type (org-element-typ= e element))) (cond ((and (<=3D elem-end pos) (/=3D (point-max) elem-end)= ) (goto-char elem-end) (setq mode (org-element--next-mode type nil))) ((not= (memq type org-element-greater-elements)) (throw (quote exit) element)) ((= let ((cbeg ...) (cend ...)) (if (or syncp ...) (progn ... ...)))) (t (throw= (quote exit) element)))) (setq element nil)))
=C2=A0 (let* ((cac= hed (and (org-element--cache-active-p) (org-element--cache-find pos nil))) = (begin (org-element-property :begin cached)) element next mode) (cond ((not= cached) (if (progn (defvar org-called-with-limited-levels) (defvar org-out= line-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* = ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-regex= p org-outline-regexp) (org-outline-regexp-bol ...)) (outline-previous-headi= ng))) (progn (setq mode (quote planning)) (forward-line))) (skip-chars-forw= ard "=C2=A0
\n") (beginning-of-line)) ((=3D pos begin) (throw (qu= ote exit) (if syncp (org-element-property :parent cached) cached))) ((re-se= arch-backward (progn (defvar org-called-with-limited-levels) (defvar org-ou= tline-regexp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let*= ((org-called-with-limited-levels t) (org-outline-regexp ...) (outline-rege= xp org-outline-regexp) (org-outline-regexp-bol ...)) org-outline-regexp-bol= )) begin t) (forward-line) (skip-chars-forward "=C2=A0
\n") (begi= nning-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos (if = (=3D ... pos) (1- pos) pos))) (goto-char (or (org-element-property :content= s-begin cached) begin)) (while (let ((end ...)) (and (<=3D end pos) (got= o-char end) (setq up ...)))) (cond ((not up)) ((eobp) (setq element up)) (t= (setq element up next (point))))))) (let ((end (or (org-element-property := end element) (save-excursion (progn (defvar org-called-with-limited-levels)= (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-outline-re= gexp-bol) (let* ... ...)) (point)))) (parent element)) (while t (if syncp (= progn (cond ((=3D ... pos) (throw ... parent)) ((org-element--cache-interru= pt-p time-limit) (throw ... nil))))) (if element nil (setq element (org-ele= ment--current-element end (quote element) mode (org-element-property :struc= ture parent))) (org-element-put-property element :parent parent) (org-eleme= nt--cache-put element)) (let ((elem-end (org-element-property :end element)= ) (type (org-element-type element))) (cond ((and (<=3D elem-end pos) (/= =3D ... elem-end)) (goto-char elem-end) (setq mode (org-element--next-mode = type nil))) ((not (memq type org-element-greater-elements)) (throw (quote e= xit) element)) ((let (... ...) (if ... ...))) (t (throw (quote exit) elemen= t)))) (setq element nil))))
=C2=A0 (save-restriction (widen) (got= o-char pos) (let* ((cached (and (org-element--cache-active-p) (org-element-= -cache-find pos nil))) (begin (org-element-property :begin cached)) element= next mode) (cond ((not cached) (if (progn (defvar org-called-with-limited-= levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar org-out= line-regexp-bol) (let* (... ... ... ...) (outline-previous-heading))) (prog= n (setq mode (quote planning)) (forward-line))) (skip-chars-forward "= =C2=A0
= \n") (beginning-of-line)) ((=3D pos begin) (throw (quote exit) = (if syncp (org-element-property :parent cached) cached))) ((re-search-backw= ard (progn (defvar org-called-with-limited-levels) (defvar org-outline-rege= xp) (defvar outline-regexp) (defvar org-outline-regexp-bol) (let* (... ... = ... ...) org-outline-regexp-bol)) begin t) (forward-line) (skip-chars-forwa= rd "=C2=A0
\n") (beginning-of-line) (setq mode (quote planning)))= (t (let ((up cached) (pos (if ... ... pos))) (goto-char (or (org-element-p= roperty :contents-begin cached) begin)) (while (let (...) (and ... ... ...)= )) (cond ((not up)) ((eobp) (setq element up)) (t (setq element up next ...= )))))) (let ((end (or (org-element-property :end element) (save-excursion (= progn ... ... ... ... ...) (point)))) (parent element)) (while t (if syncp = (progn (cond (... ...) (... ...)))) (if element nil (setq element (org-elem= ent--current-element end (quote element) mode (org-element-property :struct= ure parent))) (org-element-put-property element :parent parent) (org-elemen= t--cache-put element)) (let ((elem-end (org-element-property :end element))= (type (org-element-type element))) (cond ((and ... ...) (goto-char elem-en= d) (setq mode ...)) ((not ...) (throw ... element)) ((let ... ...)) (t (thr= ow ... element)))) (setq element nil)))))
=C2=A0 (save-excursion = (save-restriction (widen) (goto-char pos) (let* ((cached (and (org-element-= -cache-active-p) (org-element--cache-find pos nil))) (begin (org-element-pr= operty :begin cached)) element next mode) (cond ((not cached) (if (progn (d= efvar org-called-with-limited-levels) (defvar org-outline-regexp) (defvar o= utline-regexp) (defvar org-outline-regexp-bol) (let* ... ...)) (progn (setq= mode ...) (forward-line))) (skip-chars-forward "=C2=A0
\n") (beg= inning-of-line)) ((=3D pos begin) (throw (quote exit) (if syncp (org-elemen= t-property :parent cached) cached))) ((re-search-backward (progn (defvar or= g-called-with-limited-levels) (defvar org-outline-regexp) (defvar outline-r= egexp) (defvar org-outline-regexp-bol) (let* ... org-outline-regexp-bol)) b= egin t) (forward-line) (skip-chars-forward "=C2=A0
\n") (beginnin= g-of-line) (setq mode (quote planning))) (t (let ((up cached) (pos ...)) (g= oto-char (or ... begin)) (while (let ... ...)) (cond (...) (... ...) (t ...= ))))) (let ((end (or (org-element-property :end element) (save-excursion ..= . ...))) (parent element)) (while t (if syncp (progn (cond ... ...))) (if e= lement nil (setq element (org-element--current-element end ... mode ...)) (= org-element-put-property element :parent parent) (org-element--cache-put el= ement)) (let ((elem-end ...) (type ...)) (cond (... ... ...) (... ...) (...= ) (t ...))) (setq element nil))))))
=C2=A0 (catch (quote exit) (s= ave-excursion (save-restriction (widen) (goto-char pos) (let* ((cached (and= (org-element--cache-active-p) (org-element--cache-find pos nil))) (begin (= org-element-property :begin cached)) element next mode) (cond ((not cached)= (if (progn ... ... ... ... ...) (progn ... ...)) (skip-chars-forward "= ;=C2=A0
= \n") (beginning-of-line)) ((=3D pos begin) (throw (quote exit)= (if syncp ... cached))) ((re-search-backward (progn ... ... ... ... ...) b= egin t) (forward-line) (skip-chars-forward "=C2=A0
\n") (beginnin= g-of-line) (setq mode (quote planning))) (t (let (... ...) (goto-char ...) = (while ...) (cond ... ... ...)))) (let ((end (or ... ...)) (parent element)= ) (while t (if syncp (progn ...)) (if element nil (setq element ...) (org-e= lement-put-property element :parent parent) (org-element--cache-put element= )) (let (... ...) (cond ... ... ... ...)) (setq element nil)))))))
=C2=A0 org-element--parse-to(94)
=C2=A0 (cond ((bobp) nil) ((pr= ogn (defvar org-called-with-limited-levels) (defvar org-outline-regexp) (de= fvar outline-regexp) (defvar org-outline-regexp-bol) (let* ((org-called-wit= h-limited-levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (= outline-regexp org-outline-regexp) (org-outline-regexp-bol (concat "^&= quot; org-outline-regexp))) (org-at-heading-p))) (beginning-of-line) (org-e= lement-headline-parser (point-max) t)) (t (if (org-element--cache-active-p)= (progn (if (not org-element--cache) (org-element-cache-reset) (org-element= --cache-sync (current-buffer) origin)))) (org-element--parse-to origin)))
=C2=A0 (let ((origin (point))) (end-of-line) (skip-chars-backward = "=C2=A0
\n") (cond ((bobp) nil) ((progn (defvar org-called-with-l= imited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar = org-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outl= ine-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-re= gexp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (= org-at-heading-p))) (beginning-of-line) (org-element-headline-parser (point= -max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-element-= -cache) (org-element-cache-reset) (org-element--cache-sync (current-buffer)= origin)))) (org-element--parse-to origin))))
=C2=A0 (save-restri= ction (widen) (let ((origin (point))) (end-of-line) (skip-chars-backward &q= uot;=C2=A0
\n") (cond ((bobp) nil) ((progn (defvar org-called-with-lim= ited-levels) (defvar org-outline-regexp) (defvar outline-regexp) (defvar or= g-outline-regexp-bol) (let* ((org-called-with-limited-levels t) (org-outlin= e-regexp ...) (outline-regexp org-outline-regexp) (org-outline-regexp-bol .= ..)) (org-at-heading-p))) (beginning-of-line) (org-element-headline-parser = (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-el= ement--cache) (org-element-cache-reset) (org-element--cache-sync ... origin= )))) (org-element--parse-to origin)))))
=C2=A0 (save-excursion (s= ave-restriction (widen) (let ((origin (point))) (end-of-line) (skip-chars-b= ackward "=C2=A0
\n") (cond ((bobp) nil) ((progn (defvar org-calle= d-with-limited-levels) (defvar org-outline-regexp) (defvar outline-regexp) = (defvar org-outline-regexp-bol) (let* (... ... ... ...) (org-at-heading-p))= ) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (= org-element--cache-active-p) (progn (if ... ... ...))) (org-element--parse-= to origin))))))
=C2=A0 org-element-at-point()
=C2=A0 (o= r element (org-element-at-point))
=C2=A0 (let* ((pos (point)) (el= ement (or element (org-element-at-point))) (type (org-element-type element)= ) (post (org-element-property :post-affiliated element))) (cond ((and post = (< pos post)) (beginning-of-line) (let ((case-fold-search t)) (looking-a= t org-element--affiliated-re)) (cond ((not (member-ignore-case (match-strin= g 1) org-element-parsed-keywords)) (throw (quote objects-forbidden) element= )) ((< (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-posi= tion))) ((and (match-beginning 2) (>=3D pos (match-beginning 2)) (< p= os (match-end 2))) (narrow-to-region (match-beginning 2) (match-end 2))) (t= (throw (quote objects-forbidden) element))) (setq type (quote keyword))) (= (eq type (quote item)) (let ((tag (org-element-property :tag element))) (if= (or (not tag) (/=3D (line-beginning-position) post)) (throw (quote objects= -forbidden) element) (beginning-of-line) (search-forward tag (line-end-posi= tion)) (goto-char (match-beginning 0)) (if (and (>=3D pos ...) (< pos= ...)) (narrow-to-region (point) (match-end 0)) (throw (quote objects-forbi= dden) element))))) ((memq type (quote (headline inlinetask))) (goto-char (o= rg-element-property :begin element)) (looking-at org-complex-heading-regexp= ) (let ((end (match-end 4))) (if (not end) (throw (quote objects-forbidden)= element) (goto-char (match-beginning 4)) (if (let (case-fold-search) (look= ing-at org-comment-string)) (progn (goto-char ...))) (if (>=3D (point) e= nd) (throw (quote objects-forbidden) element) (narrow-to-region (point) end= ))))) ((memq type (quote (paragraph table-row verse-block))) (let ((cbeg (o= rg-element-property :contents-begin element)) (cend (org-element-property := contents-end element))) (if (and cbeg cend (>=3D pos cbeg) (or (< pos= cend) (and ... ...))) (narrow-to-region cbeg cend) (throw (quote objects-f= orbidden) element)))) ((eq type (quote planning)) (let ((--dolist-tail-- (q= uote (:closed :deadline :scheduled)))) (while --dolist-tail-- (let ((p ...)= ) (let (...) (if ... ...)) (setq --dolist-tail-- (cdr --dolist-tail--))))) = (throw (quote objects-forbidden) element)) (t (throw (quote objects-forbidd= en) element))) (goto-char (point-min)) (let ((restriction (org-element-rest= riction type)) (parent element) (cache (cond ((not (org-element--cache-acti= ve-p)) nil) (org-element--cache-objects (gethash element org-element--cache= -objects)) (t (org-element-cache-reset) nil))) next object-data last) (prog= 1 (catch (quote exit) (while t (if next nil (let (...) (if data ... ...))) = (catch (quote found) (if next (setq next ...) (let ... ...)) (if next (prog= n ... ...) (setcar ... t))) (if (or (not next) (> ... pos)) (throw (quot= e exit) (or last parent)) (let (... ... ...) (cond ... ... ...))))) (org-el= ement--cache-put element cache))))
=C2=A0 (save-restriction (wide= n) (let* ((pos (point)) (element (or element (org-element-at-point))) (type= (org-element-type element)) (post (org-element-property :post-affiliated e= lement))) (cond ((and post (< pos post)) (beginning-of-line) (let ((case= -fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (memb= er-ignore-case ... org-element-parsed-keywords)) (throw (quote objects-forb= idden) element)) ((< (match-end 0) pos) (narrow-to-region (match-end 0) = (line-end-position))) ((and (match-beginning 2) (>=3D pos ...) (< pos= ...)) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw (quo= te objects-forbidden) element))) (setq type (quote keyword))) ((eq type (qu= ote item)) (let ((tag (org-element-property :tag element))) (if (or (not ta= g) (/=3D ... post)) (throw (quote objects-forbidden) element) (beginning-of= -line) (search-forward tag (line-end-position)) (goto-char (match-beginning= 0)) (if (and ... ...) (narrow-to-region ... ...) (throw ... element))))) (= (memq type (quote (headline inlinetask))) (goto-char (org-element-property = :begin element)) (looking-at org-complex-heading-regexp) (let ((end (match-= end 4))) (if (not end) (throw (quote objects-forbidden) element) (goto-char= (match-beginning 4)) (if (let ... ...) (progn ...)) (if (>=3D ... end) = (throw ... element) (narrow-to-region ... end))))) ((memq type (quote (para= graph table-row verse-block))) (let ((cbeg (org-element-property :contents-= begin element)) (cend (org-element-property :contents-end element))) (if (a= nd cbeg cend (>=3D pos cbeg) (or ... ...)) (narrow-to-region cbeg cend) = (throw (quote objects-forbidden) element)))) ((eq type (quote planning)) (l= et ((--dolist-tail-- (quote ...))) (while --dolist-tail-- (let (...) (let .= .. ...) (setq --dolist-tail-- ...)))) (throw (quote objects-forbidden) elem= ent)) (t (throw (quote objects-forbidden) element))) (goto-char (point-min)= ) (let ((restriction (org-element-restriction type)) (parent element) (cach= e (cond ((not ...) nil) (org-element--cache-objects (gethash element org-el= ement--cache-objects)) (t (org-element-cache-reset) nil))) next object-data= last) (prog1 (catch (quote exit) (while t (if next nil (let ... ...)) (cat= ch (quote found) (if next ... ...) (if next ... ...)) (if (or ... ...) (thr= ow ... ...) (let ... ...)))) (org-element--cache-put element cache)))))
=C2=A0 (save-excursion (save-restriction (widen) (let* ((pos (point)= ) (element (or element (org-element-at-point))) (type (org-element-type ele= ment)) (post (org-element-property :post-affiliated element))) (cond ((and = post (< pos post)) (beginning-of-line) (let ((case-fold-search t)) (look= ing-at org-element--affiliated-re)) (cond ((not ...) (throw ... element)) (= (< ... pos) (narrow-to-region ... ...)) ((and ... ... ...) (narrow-to-re= gion ... ...)) (t (throw ... element))) (setq type (quote keyword))) ((eq t= ype (quote item)) (let ((tag ...)) (if (or ... ...) (throw ... element) (be= ginning-of-line) (search-forward tag ...) (goto-char ...) (if ... ... ...))= )) ((memq type (quote (headline inlinetask))) (goto-char (org-element-prope= rty :begin element)) (looking-at org-complex-heading-regexp) (let ((end ...= )) (if (not end) (throw ... element) (goto-char ...) (if ... ...) (if ... .= .. ...)))) ((memq type (quote (paragraph table-row verse-block))) (let ((cb= eg ...) (cend ...)) (if (and cbeg cend ... ...) (narrow-to-region cbeg cend= ) (throw ... element)))) ((eq type (quote planning)) (let ((--dolist-tail--= ...)) (while --dolist-tail-- (let ... ... ...))) (throw (quote objects-for= bidden) element)) (t (throw (quote objects-forbidden) element))) (goto-char= (point-min)) (let ((restriction (org-element-restriction type)) (parent el= ement) (cache (cond (... nil) (org-element--cache-objects ...) (t ... nil))= ) next object-data last) (prog1 (catch (quote exit) (while t (if next nil .= ..) (catch ... ... ...) (if ... ... ...))) (org-element--cache-put element = cache))))))
=C2=A0 (catch (quote objects-forbidden) (save-excursi= on (save-restriction (widen) (let* ((pos (point)) (element (or element (org= -element-at-point))) (type (org-element-type element)) (post (org-element-p= roperty :post-affiliated element))) (cond ((and post (< pos post)) (begi= nning-of-line) (let (...) (looking-at org-element--affiliated-re)) (cond (.= .. ...) (... ...) (... ...) (t ...)) (setq type (quote keyword))) ((eq type= (quote item)) (let (...) (if ... ... ... ... ... ...))) ((memq type (quote= ...)) (goto-char (org-element-property :begin element)) (looking-at org-co= mplex-heading-regexp) (let (...) (if ... ... ... ... ...))) ((memq type (qu= ote ...)) (let (... ...) (if ... ... ...))) ((eq type (quote planning)) (le= t (...) (while --dolist-tail-- ...)) (throw (quote objects-forbidden) eleme= nt)) (t (throw (quote objects-forbidden) element))) (goto-char (point-min))= (let ((restriction (org-element-restriction type)) (parent element) (cache= (cond ... ... ...)) next object-data last) (prog1 (catch (quote exit) (whi= le t ... ... ...)) (org-element--cache-put element cache)))))))
= =C2=A0 org-element-context()
=C2=A0 (progn (org-element-context))=
=C2=A0 (unwind-protect (progn (org-element-context)) (set-match-= data save-match-data-internal (quote evaporate)))
=C2=A0 (let ((s= ave-match-data-internal (match-data))) (unwind-protect (progn (org-element-= context)) (set-match-data save-match-data-internal (quote evaporate))))
=C2=A0 (let* ((element (let ((save-match-data-internal (match-data))= ) (unwind-protect (progn (org-element-context)) (set-match-data save-match-= data-internal (quote evaporate))))) (type (org-element-type element)) (begi= n (copy-marker (org-element-property :begin element))) (end (copy-marker (s= ave-excursion (goto-char (org-element-property :end element)) (skip-chars-b= ackward "=C2=A0
\n") (point))))) (cond ((eql type (quote inline-s= rc-block)) (let* ((info (org-babel-get-src-block-info nil element)) (params= (nth 2 info))) (let* ((c (nthcdr 1 info))) (setcar c (if (and ... ...) (or= g-babel-expand-noweb-references info org-babel-exp-reference-buffer) (nth 1= info)))) (goto-char begin) (let ((replacement (org-babel-exp-do-export inf= o ...))) (if (equal replacement "") (delete-region begin (progn .= .. ... ...)) (delete-region begin end) (insert replacement))))) ((memql typ= e (quote (babel-call inline-babel-call))) (let* ((lob-info (org-babel-lob-g= et-info element)) (results (org-babel-exp-do-export (list "emacs-lisp&= quot; "results" ... "" ... ...) (quote lob))) (rep (org= -fill-template org-babel-exp-call-line-template (list ...)))) (if (equal re= p "") (delete-region begin (progn (goto-char end) (if ... ... ...= ...))) (goto-char begin) (delete-region begin end) (insert rep)))) ((eql t= ype (quote src-block)) (let* ((match-start (copy-marker (match-beginning 0)= )) (ind (org-get-indentation)) (lang (or (org-element-property :language el= ement) (user-error "No language for src block: %s" ...))) (header= s (cons lang (let ... ...)))) (let ((replacement (progn ... ...))) (cond ((= not replacement) (goto-char end)) ((equal replacement "") (goto-c= har end) (skip-chars-forward "=C2=A0
\n") (beginning-of-line) (de= lete-region begin ...)) (t (goto-char match-start) (delete-region ... ...) = (insert replacement) (if ... ... ...)))) (set-marker match-start nil)))) (s= et-marker begin nil) (set-marker end nil))
=C2=A0 (if (let ((save= -match-data-internal (match-data))) (unwind-protect (progn (org-in-commente= d-heading-p)) (set-match-data save-match-data-internal (quote evaporate))))= nil (let* ((element (let ((save-match-data-internal (match-data))) (unwind= -protect (progn (org-element-context)) (set-match-data save-match-data-inte= rnal (quote evaporate))))) (type (org-element-type element)) (begin (copy-m= arker (org-element-property :begin element))) (end (copy-marker (save-excur= sion (goto-char (org-element-property :end element)) (skip-chars-backward &= quot;=C2=A0
\n") (point))))) (cond ((eql type (quote inline-src-block)= ) (let* ((info (org-babel-get-src-block-info nil element)) (params (nth 2 i= nfo))) (let* ((c ...)) (setcar c (if ... ... ...))) (goto-char begin) (let = ((replacement ...)) (if (equal replacement "") (delete-region beg= in ...) (delete-region begin end) (insert replacement))))) ((memql type (qu= ote (babel-call inline-babel-call))) (let* ((lob-info (org-babel-lob-get-in= fo element)) (results (org-babel-exp-do-export ... ...)) (rep (org-fill-tem= plate org-babel-exp-call-line-template ...))) (if (equal rep "") = (delete-region begin (progn ... ...)) (goto-char begin) (delete-region begi= n end) (insert rep)))) ((eql type (quote src-block)) (let* ((match-start (c= opy-marker ...)) (ind (org-get-indentation)) (lang (or ... ...)) (headers (= cons lang ...))) (let ((replacement ...)) (cond (... ...) (... ... ... ... = ...) (t ... ... ... ...))) (set-marker match-start nil)))) (set-marker begi= n nil) (set-marker end nil)))
=C2=A0 (while (re-search-forward re= gexp nil t) (if (let ((save-match-data-internal (match-data))) (unwind-prot= ect (progn (org-in-commented-heading-p)) (set-match-data save-match-data-in= ternal (quote evaporate)))) nil (let* ((element (let ((save-match-data-inte= rnal ...)) (unwind-protect (progn ...) (set-match-data save-match-data-inte= rnal ...)))) (type (org-element-type element)) (begin (copy-marker (org-ele= ment-property :begin element))) (end (copy-marker (save-excursion (goto-cha= r ...) (skip-chars-backward "=C2=A0
\n") (point))))) (cond ((eql = type (quote inline-src-block)) (let* ((info ...) (params ...)) (let* (...) = (setcar c ...)) (goto-char begin) (let (...) (if ... ... ... ...)))) ((memq= l type (quote (babel-call inline-babel-call))) (let* ((lob-info ...) (resul= ts ...) (rep ...)) (if (equal rep "") (delete-region begin ...) (= goto-char begin) (delete-region begin end) (insert rep)))) ((eql type (quot= e src-block)) (let* ((match-start ...) (ind ...) (lang ...) (headers ...)) = (let (...) (cond ... ... ...)) (set-marker match-start nil)))) (set-marker = begin nil) (set-marker end nil))))
=C2=A0 (let ((case-fold-search= t) (org-babel-exp-reference-buffer reference-buffer) (regexp "\\(call= \\|src\\)_\\|^[ <= /span>]*#\\+\\(BEGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while = (re-search-forward regexp nil t) (if (let ((save-match-data-internal (match= -data))) (unwind-protect (progn (org-in-commented-heading-p)) (set-match-da= ta save-match-data-internal (quote evaporate)))) nil (let* ((element (let (= ...) (unwind-protect ... ...))) (type (org-element-type element)) (begin (c= opy-marker (org-element-property :begin element))) (end (copy-marker (save-= excursion ... ... ...)))) (cond ((eql type (quote inline-src-block)) (let* = (... ...) (let* ... ...) (goto-char begin) (let ... ...))) ((memql type (qu= ote ...)) (let* (... ... ...) (if ... ... ... ... ...))) ((eql type (quote = src-block)) (let* (... ... ... ...) (let ... ...) (set-marker match-start n= il)))) (set-marker begin nil) (set-marker end nil)))))
=C2=A0 (sa= ve-excursion (let ((case-fold-search t) (org-babel-exp-reference-buffer ref= erence-buffer) (regexp "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)&quo= t;)) (goto-char (point-min)) (while (re-search-forward regexp nil t) (if (l= et ((save-match-data-internal (match-data))) (unwind-protect (progn (org-in= -commented-heading-p)) (set-match-data save-match-data-internal (quote evap= orate)))) nil (let* ((element (let ... ...)) (type (org-element-type elemen= t)) (begin (copy-marker ...)) (end (copy-marker ...))) (cond ((eql type ...= ) (let* ... ... ... ...)) ((memql type ...) (let* ... ...)) ((eql type ...)= (let* ... ... ...))) (set-marker begin nil) (set-marker end nil))))))
=C2=A0 (progn (save-excursion (let ((case-fold-search t) (org-babel-e= xp-reference-buffer reference-buffer) (regexp "\\(call\\|src\\)_\\|^[ = ]*#\\+\\(B= EGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while (re-search-forwa= rd regexp nil t) (if (let ((save-match-data-internal ...)) (unwind-protect = (progn ...) (set-match-data save-match-data-internal ...))) nil (let* ((ele= ment ...) (type ...) (begin ...) (end ...)) (cond (... ...) (... ...) (... = ...)) (set-marker begin nil) (set-marker end nil)))))))
=C2=A0 (u= nwind-protect (progn (save-excursion (let ((case-fold-search t) (org-babel-= exp-reference-buffer reference-buffer) (regexp "\\(call\\|src\\)_\\|^[= ]*#\\+\\(= BEGIN_SRC\\|CALL:\\)")) (goto-char (point-min)) (while (re-search-forw= ard regexp nil t) (if (let (...) (unwind-protect ... ...)) nil (let* (... .= .. ... ...) (cond ... ... ...) (set-marker begin nil) (set-marker end nil))= ))))) (set-window-configuration wconfig))
=C2=A0 (let ((wconfig (= current-window-configuration))) (unwind-protect (progn (save-excursion (let= ((case-fold-search t) (org-babel-exp-reference-buffer reference-buffer) (r= egexp "\\(call\\|src\\)_\\|^[ ]*#\\+\\(BEGIN_SRC\\|CALL:\\)")) (goto-char (= point-min)) (while (re-search-forward regexp nil t) (if (let ... ...) nil (= let* ... ... ... ...)))))) (set-window-configuration wconfig)))
= =C2=A0 org-babel-exp-process-buffer(#<buffer org-bug2.org<2><2>>)
=C2=A0 (unwind-prote= ct (org-babel-exp-process-buffer reference) (kill-buffer reference))
<= div>=C2=A0 (let ((reference (org-export-copy-buffer))) (unwind-protect (org= -babel-exp-process-buffer reference) (kill-buffer reference)))
= =C2=A0 org-export-execute-babel-code()
=C2=A0 (progn (run-hook-wi= th-args (quote org-export-before-processing-hook) (progn nil (or (progn nil= (and (vectorp backend) (>=3D (length backend) 8) (memq (aref backend 0)= cl-struct-org-export-backend-tags) t)) (signal (quote wrong-type-argument)= (list (quote org-export-backend) backend))) (aref backend 1))) (org-export= -expand-include-keyword) (org-export--delete-comments) (org-macro-initializ= e-templates) (org-macro-replace-all org-macro-templates nil parsed-keywords= ) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-expor= t-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-targe= t-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quot= e org-export-before-parsing-hook) (progn nil (or (progn nil (and (vectorp b= ackend) (>=3D ... 8) (memq ... cl-struct-org-export-backend-tags) t)) (s= ignal (quote wrong-type-argument) (list (quote org-export-backend) backend)= )) (aref backend 1)))) (org-set-regexps-and-options) (org-update-radio-targ= et-regexp) (setq info (org-export-install-filters (org-combine-plists info = (org-export-get-environment backend subtreep ext-plist)))) (let ((backend-n= ame (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-typ= e-argument) (list ... backend))) (aref backend 1)))) (let ((--dolist-tail--= (plist-get info :filter-options))) (while --dolist-tail-- (let ((filter (c= ar --dolist-tail--))) (let ((result ...)) (if result (progn ...))) (setq --= dolist-tail-- (cdr --dolist-tail--)))))) (org-macro-replace-all (list (cons= "author" (org-element-interpret-data (plist-get info :author))) = (cons "date" (let* ((date (plist-get info :date)) (value (or ... = ""))) (if (and (consp date) (not ...) (eq ... ...)) (format "= ;(eval (if (org-string-nw-p \"$1\") %s %S))" (format "(= org-timestamp-format '%S \"$1\")" ...) value) value))) (= cons "email" (org-element-interpret-data (plist-get info :email))= ) (cons "title" (org-element-interpret-data (plist-get info :titl= e))) (cons "results" "$1")) (quote finalize) parsed-key= words) (setq tree (org-element-parse-buffer nil visible-only)) (org-export-= -merge-external-footnote-definitions tree) (org-export--prune-tree tree inf= o) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export= -filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (se= tq info (org-export--collect-tree-properties tree info)) (let* ((body (org-= element-normalize-string (or (org-export-data tree info) ""))) (i= nner-template (cdr (assq (quote inner-template) (plist-get info :translate-= alist)))) (full-body (org-export-filter-apply-functions (plist-get info :fi= lter-body) (if (not (functionp inner-template)) body (funcall inner-templat= e body info)) info)) (template (cdr (assq (quote template) (plist-get info = :translate-alist))))) (org-no-properties (org-export-filter-apply-functions= (plist-get info :filter-final-output) (if (or (not (functionp template)) b= ody-only) full-body (funcall template full-body info)) info))))
= =C2=A0 (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min))= (progn (run-hook-with-args (quote org-export-before-processing-hook) (prog= n nil (or (progn nil (and (vectorp backend) (>=3D ... 8) (memq ... cl-st= ruct-org-export-backend-tags) t)) (signal (quote wrong-type-argument) (list= (quote org-export-backend) backend))) (aref backend 1))) (org-export-expan= d-include-keyword) (org-export--delete-comments) (org-macro-initialize-temp= lates) (org-macro-replace-all org-macro-templates nil parsed-keywords) (org= -set-regexps-and-options) (org-update-radio-target-regexp) (org-export-exec= ute-babel-code) (org-set-regexps-and-options) (org-update-radio-target-rege= xp) (goto-char (point-min)) (save-excursion (run-hook-with-args (quote org-= export-before-parsing-hook) (progn nil (or (progn nil (and ... ... ... t)) = (signal (quote wrong-type-argument) (list ... backend))) (aref backend 1)))= ) (org-set-regexps-and-options) (org-update-radio-target-regexp) (setq info= (org-export-install-filters (org-combine-plists info (org-export-get-envir= onment backend subtreep ext-plist)))) (let ((backend-name (progn nil (or (p= rogn nil ...) (signal ... ...)) (aref backend 1)))) (let ((--dolist-tail-- = (plist-get info :filter-options))) (while --dolist-tail-- (let ((filter ...= )) (let (...) (if result ...)) (setq --dolist-tail-- (cdr --dolist-tail--))= )))) (org-macro-replace-all (list (cons "author" (org-element-int= erpret-data (plist-get info :author))) (cons "date" (let* ((date = ...) (value ...)) (if (and ... ... ...) (format "(eval (if (org-string= -nw-p \"$1\") %s %S))" ... value) value))) (cons "email= " (org-element-interpret-data (plist-get info :email))) (cons "ti= tle" (org-element-interpret-data (plist-get info :title))) (cons "= ;results" "$1")) (quote finalize) parsed-keywords) (setq tre= e (org-element-parse-buffer nil visible-only)) (org-export--merge-external-= footnote-definitions tree) (org-export--prune-tree tree info) (org-export--= remove-uninterpreted-data tree info) (setq tree (org-export-filter-apply-fu= nctions (plist-get info :filter-parse-tree) tree info)) (setq info (org-exp= ort--collect-tree-properties tree info)) (let* ((body (org-element-normaliz= e-string (or (org-export-data tree info) ""))) (inner-template (c= dr (assq (quote inner-template) (plist-get info :translate-alist)))) (full-= body (org-export-filter-apply-functions (plist-get info :filter-body) (if (= not ...) body (funcall inner-template body info)) info)) (template (cdr (as= sq (quote template) (plist-get info :translate-alist))))) (org-no-propertie= s (org-export-filter-apply-functions (plist-get info :filter-final-output) = (if (or (not ...) body-only) full-body (funcall template full-body info)) i= nfo)))))
=C2=A0 (unwind-protect (save-current-buffer (set-buffer = --buf-copy) (goto-char (point-min)) (progn (run-hook-with-args (quote org-e= xport-before-processing-hook) (progn nil (or (progn nil (and ... ... ... t)= ) (signal (quote wrong-type-argument) (list ... backend))) (aref backend 1)= )) (org-export-expand-include-keyword) (org-export--delete-comments) (org-m= acro-initialize-templates) (org-macro-replace-all org-macro-templates nil p= arsed-keywords) (org-set-regexps-and-options) (org-update-radio-target-rege= xp) (org-export-execute-babel-code) (org-set-regexps-and-options) (org-upda= te-radio-target-regexp) (goto-char (point-min)) (save-excursion (run-hook-w= ith-args (quote org-export-before-parsing-hook) (progn nil (or (progn nil .= ..) (signal ... ...)) (aref backend 1)))) (org-set-regexps-and-options) (or= g-update-radio-target-regexp) (setq info (org-export-install-filters (org-c= ombine-plists info (org-export-get-environment backend subtreep ext-plist))= )) (let ((backend-name (progn nil (or ... ...) (aref backend 1)))) (let ((-= -dolist-tail-- (plist-get info :filter-options))) (while --dolist-tail-- (l= et (...) (let ... ...) (setq --dolist-tail-- ...))))) (org-macro-replace-al= l (list (cons "author" (org-element-interpret-data (plist-get inf= o :author))) (cons "date" (let* (... ...) (if ... ... value))) (c= ons "email" (org-element-interpret-data (plist-get info :email)))= (cons "title" (org-element-interpret-data (plist-get info :title= ))) (cons "results" "$1")) (quote finalize) parsed-keyw= ords) (setq tree (org-element-parse-buffer nil visible-only)) (org-export--= merge-external-footnote-definitions tree) (org-export--prune-tree tree info= ) (org-export--remove-uninterpreted-data tree info) (setq tree (org-export-= filter-apply-functions (plist-get info :filter-parse-tree) tree info)) (set= q info (org-export--collect-tree-properties tree info)) (let* ((body (org-e= lement-normalize-string (or ... ""))) (inner-template (cdr (assq = ... ...))) (full-body (org-export-filter-apply-functions (plist-get info :f= ilter-body) (if ... body ...) info)) (template (cdr (assq ... ...)))) (org-= no-properties (org-export-filter-apply-functions (plist-get info :filter-fi= nal-output) (if (or ... body-only) full-body (funcall template full-body in= fo)) info))))) (and (buffer-live-p --buf-copy) (progn (save-current-buffer = (set-buffer --buf-copy) (restore-buffer-modified-p nil)) (kill-buffer --buf= -copy))))
=C2=A0 (let ((--buf-copy (org-export-copy-buffer))) (un= wind-protect (save-current-buffer (set-buffer --buf-copy) (goto-char (point= -min)) (progn (run-hook-with-args (quote org-export-before-processing-hook)= (progn nil (or (progn nil ...) (signal ... ...)) (aref backend 1))) (org-e= xport-expand-include-keyword) (org-export--delete-comments) (org-macro-init= ialize-templates) (org-macro-replace-all org-macro-templates nil parsed-key= words) (org-set-regexps-and-options) (org-update-radio-target-regexp) (org-= export-execute-babel-code) (org-set-regexps-and-options) (org-update-radio-= target-regexp) (goto-char (point-min)) (save-excursion (run-hook-with-args = (quote org-export-before-parsing-hook) (progn nil (or ... ...) (aref backen= d 1)))) (org-set-regexps-and-options) (org-update-radio-target-regexp) (set= q info (org-export-install-filters (org-combine-plists info (org-export-get= -environment backend subtreep ext-plist)))) (let ((backend-name (progn nil = ... ...))) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ...= ...)))) (org-macro-replace-all (list (cons "author" (org-element= -interpret-data ...)) (cons "date" (let* ... ...)) (cons "em= ail" (org-element-interpret-data ...)) (cons "title" (org-el= ement-interpret-data ...)) (cons "results" "$1")) (quot= e finalize) parsed-keywords) (setq tree (org-element-parse-buffer nil visib= le-only)) (org-export--merge-external-footnote-definitions tree) (org-expor= t--prune-tree tree info) (org-export--remove-uninterpreted-data tree info) = (setq tree (org-export-filter-apply-functions (plist-get info :filter-parse= -tree) tree info)) (setq info (org-export--collect-tree-properties tree inf= o)) (let* ((body (org-element-normalize-string ...)) (inner-template (cdr .= ..)) (full-body (org-export-filter-apply-functions ... ... info)) (template= (cdr ...))) (org-no-properties (org-export-filter-apply-functions (plist-g= et info :filter-final-output) (if ... full-body ...) info))))) (and (buffer= -live-p --buf-copy) (progn (save-current-buffer (set-buffer --buf-copy) (re= store-buffer-modified-p nil)) (kill-buffer --buf-copy)))))
=C2=A0= (let* ((org-export-current-backend (progn nil (or (progn nil (and (vectorp= backend) (>=3D ... 8) (memq ... cl-struct-org-export-backend-tags) t)) = (signal (quote wrong-type-argument) (list (quote org-export-backend) backen= d))) (aref backend 1))) (info (org-combine-plists (org-export--get-export-a= ttributes backend subtreep visible-only body-only) (org-export--get-buffer-= attributes))) (parsed-keywords (delq nil (mapcar (function (lambda (o) (and= ... ...))) (append (org-export-get-all-options backend) org-export-options= -alist)))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-prote= ct (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (pr= ogn (run-hook-with-args (quote org-export-before-processing-hook) (progn ni= l (or ... ...) (aref backend 1))) (org-export-expand-include-keyword) (org-= export--delete-comments) (org-macro-initialize-templates) (org-macro-replac= e-all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options= ) (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set= -regexps-and-options) (org-update-radio-target-regexp) (goto-char (point-mi= n)) (save-excursion (run-hook-with-args (quote org-export-before-parsing-ho= ok) (progn nil ... ...))) (org-set-regexps-and-options) (org-update-radio-t= arget-regexp) (setq info (org-export-install-filters (org-combine-plists in= fo ...))) (let ((backend-name ...)) (let (...) (while --dolist-tail-- ...))= ) (org-macro-replace-all (list (cons "author" ...) (cons "da= te" ...) (cons "email" ...) (cons "title" ...) (co= ns "results" "$1")) (quote finalize) parsed-keywords) (= setq tree (org-element-parse-buffer nil visible-only)) (org-export--merge-e= xternal-footnote-definitions tree) (org-export--prune-tree tree info) (org-= export--remove-uninterpreted-data tree info) (setq tree (org-export-filter-= apply-functions (plist-get info :filter-parse-tree) tree info)) (setq info = (org-export--collect-tree-properties tree info)) (let* ((body ...) (inner-t= emplate ...) (full-body ...) (template ...)) (org-no-properties (org-export= -filter-apply-functions ... ... info))))) (and (buffer-live-p --buf-copy) (= progn (save-current-buffer (set-buffer --buf-copy) (restore-buffer-modified= -p nil)) (kill-buffer --buf-copy))))))
=C2=A0 (save-restriction (= cond ((org-region-active-p) (narrow-to-region (region-beginning) (region-en= d))) (subtreep (org-narrow-to-subtree) (goto-char (point-min)) (forward-lin= e) (narrow-to-region (point) (point-max)))) (let* ((org-export-current-back= end (progn nil (or (progn nil (and ... ... ... t)) (signal (quote wrong-typ= e-argument) (list ... backend))) (aref backend 1))) (info (org-combine-plis= ts (org-export--get-export-attributes backend subtreep visible-only body-on= ly) (org-export--get-buffer-attributes))) (parsed-keywords (delq nil (mapca= r (function (lambda ... ...)) (append (org-export-get-all-options backend) = org-export-options-alist)))) tree) (let ((--buf-copy (org-export-copy-buffe= r))) (unwind-protect (save-current-buffer (set-buffer --buf-copy) (goto-cha= r (point-min)) (progn (run-hook-with-args (quote org-export-before-processi= ng-hook) (progn nil ... ...)) (org-export-expand-include-keyword) (org-expo= rt--delete-comments) (org-macro-initialize-templates) (org-macro-replace-al= l org-macro-templates nil parsed-keywords) (org-set-regexps-and-options) (o= rg-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-reg= exps-and-options) (org-update-radio-target-regexp) (goto-char (point-min)) = (save-excursion (run-hook-with-args ... ...)) (org-set-regexps-and-options)= (org-update-radio-target-regexp) (setq info (org-export-install-filters ..= .)) (let (...) (let ... ...)) (org-macro-replace-all (list ... ... ... ... = ...) (quote finalize) parsed-keywords) (setq tree (org-element-parse-buffer= nil visible-only)) (org-export--merge-external-footnote-definitions tree) = (org-export--prune-tree tree info) (org-export--remove-uninterpreted-data t= ree info) (setq tree (org-export-filter-apply-functions ... tree info)) (se= tq info (org-export--collect-tree-properties tree info)) (let* (... ... ...= ...) (org-no-properties ...)))) (and (buffer-live-p --buf-copy) (progn (sa= ve-current-buffer (set-buffer --buf-copy) (restore-buffer-modified-p nil)) = (kill-buffer --buf-copy)))))))
=C2=A0 (save-excursion (save-restr= iction (cond ((org-region-active-p) (narrow-to-region (region-beginning) (r= egion-end))) (subtreep (org-narrow-to-subtree) (goto-char (point-min)) (for= ward-line) (narrow-to-region (point) (point-max)))) (let* ((org-export-curr= ent-backend (progn nil (or (progn nil ...) (signal ... ...)) (aref backend = 1))) (info (org-combine-plists (org-export--get-export-attributes backend s= ubtreep visible-only body-only) (org-export--get-buffer-attributes))) (pars= ed-keywords (delq nil (mapcar (function ...) (append ... org-export-options= -alist)))) tree) (let ((--buf-copy (org-export-copy-buffer))) (unwind-prote= ct (save-current-buffer (set-buffer --buf-copy) (goto-char (point-min)) (pr= ogn (run-hook-with-args ... ...) (org-export-expand-include-keyword) (org-e= xport--delete-comments) (org-macro-initialize-templates) (org-macro-replace= -all org-macro-templates nil parsed-keywords) (org-set-regexps-and-options)= (org-update-radio-target-regexp) (org-export-execute-babel-code) (org-set-= regexps-and-options) (org-update-radio-target-regexp) (goto-char ...) (save= -excursion ...) (org-set-regexps-and-options) (org-update-radio-target-rege= xp) (setq info ...) (let ... ...) (org-macro-replace-all ... ... parsed-key= words) (setq tree ...) (org-export--merge-external-footnote-definitions tre= e) (org-export--prune-tree tree info) (org-export--remove-uninterpreted-dat= a tree info) (setq tree ...) (setq info ...) (let* ... ...))) (and (buffer-= live-p --buf-copy) (progn (save-current-buffer ... ...) (kill-buffer --buf-= copy))))))))
=C2=A0 org-export-as(html nil nil nil (:output-file = "./org-bug2.html"))
=C2=A0 (let ((output (org-export-as= backend subtreep visible-only body-only ext-plist))) (let ((temp-buffer (g= enerate-new-buffer " *temp*"))) (save-current-buffer (set-buffer = temp-buffer) (unwind-protect (progn (insert output) (let ((coding-system-fo= r-write encoding)) (write-file file))) (and (buffer-name temp-buffer) (kill= -buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p) (org-st= ring-nw-p output)) (progn (org-kill-new output))) (or (and (functionp post-= process) (funcall post-process file)) file))
=C2=A0 (if async (le= t ((with-temp-message "Initializing asynchronous export process")= (current-message)) (unwind-protect (progn (if with-temp-message (progn (se= tq current-message (current-message)) (message "%s" with-temp-mes= sage))) (let ((--copy-fun (org-export--generate-copy-script ...)) (--temp-f= ile (make-temp-file "org-export-process")) (--coding buffer-file-= coding-system)) (let ((temp-file --temp-file) (temp-buffer ...)) (unwind-pr= otect (prog1 ... ...) (and ... ...))) (let* ((process-connection-type nil) = (--proc-buffer ...) (--process ...)) (org-export-add-to-stack (get-buffer -= -proc-buffer) nil --process) (let (...) (set-process-sentinel --process ...= ))))) (and with-temp-message (if current-message (message "%s" cu= rrent-message) (message nil))))) (let ((output (org-export-as backend subtr= eep visible-only body-only ext-plist))) (let ((temp-buffer (generate-new-bu= ffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (= unwind-protect (progn (insert output) (let (...) (write-file file))) (and (= buffer-name temp-buffer) (kill-buffer temp-buffer))))) (if (and (org-export= --copy-to-kill-ring-p) (org-string-nw-p output)) (progn (org-kill-new outpu= t))) (or (and (functionp post-process) (funcall post-process file)) file)))=
=C2=A0 (let ((ext-plist (org-combine-plists (list (quote :output= -file) file) ext-plist)) (encoding (or org-export-coding-system buffer-file= -coding-system))) (if async (let ((with-temp-message "Initializing asy= nchronous export process") (current-message)) (unwind-protect (progn (= if with-temp-message (progn (setq current-message ...) (message "%s&qu= ot; with-temp-message))) (let ((--copy-fun ...) (--temp-file ...) (--coding= buffer-file-coding-system)) (let (... ...) (unwind-protect ... ...)) (let*= (... ... ...) (org-export-add-to-stack ... nil --process) (let ... ...))))= (and with-temp-message (if current-message (message "%s" current= -message) (message nil))))) (let ((output (org-export-as backend subtreep v= isible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer = " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwin= d-protect (progn (insert output) (let ... ...)) (and (buffer-name temp-buff= er) (kill-buffer temp-buffer))))) (if (and (org-export--copy-to-kill-ring-p= ) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and (functi= onp post-process) (funcall post-process file)) file))))
=C2=A0 (i= f (not (file-writable-p file)) (error "Output file not writable")= (let ((ext-plist (org-combine-plists (list (quote :output-file) file) ext-= plist)) (encoding (or org-export-coding-system buffer-file-coding-system)))= (if async (let ((with-temp-message "Initializing asynchronous export = process") (current-message)) (unwind-protect (progn (if with-temp-mess= age (progn ... ...)) (let (... ... ...) (let ... ...) (let* ... ... ...))) = (and with-temp-message (if current-message (message "%s" current-= message) (message nil))))) (let ((output (org-export-as backend subtreep vi= sible-only body-only ext-plist))) (let ((temp-buffer (generate-new-buffer &= quot; *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind= -protect (progn ... ...) (and ... ...)))) (if (and (org-export--copy-to-kil= l-ring-p) (org-string-nw-p output)) (progn (org-kill-new output))) (or (and= (functionp post-process) (funcall post-process file)) file)))))
= =C2=A0 org-export-to-file(html "./org-bug2.html" nil nil nil nil = nil)
=C2=A0 (let* ((extension (concat "." (or (plist-ge= t ext-plist :html-extension) org-html-extension "html"))) (file (= org-export-output-file-name extension subtreep)) (org-export-coding-system = org-html-coding-system)) (org-export-to-file (quote html) file async subtre= ep visible-only body-only ext-plist))
=C2=A0 org-html-export-to-h= tml(nil nil nil nil)
=C2=A0 funcall(org-html-export-to-html nil n= il nil nil)
=C2=A0 (save-excursion (if arg (progn (if (eq (marker= -buffer org-export-dispatch-last-position) (org-base-buffer (current-buffer= ))) (goto-char org-export-dispatch-last-position) (move-marker org-export-d= ispatch-last-position nil)))) (funcall action (and (memq (quote async) optn= s) t) (and (memq (quote subtree) optns) t) (and (memq (quote visible) optns= ) t) (and (memq (quote body) optns) t)))
=C2=A0 (cond ((eql actio= n (quote template)) (org-export-insert-default-template nil optns)) ((eql a= ction (quote stack)) (org-export-stack)) ((eql action (quote publish-curren= t-file)) (org-publish-current-file (memq (quote force) optns) (memq (quote = async) optns))) ((eql action (quote publish-current-project)) (org-publish-= current-project (memq (quote force) optns) (memq (quote async) optns))) ((e= ql action (quote publish-choose-project)) (org-publish (assoc (completing-r= ead "Publish project: " org-publish-project-alist nil t) org-publ= ish-project-alist) (memq (quote force) optns) (memq (quote async) optns))) = ((eql action (quote publish-all)) (org-publish-all (memq (quote force) optn= s) (memq (quote async) optns))) (t (save-excursion (if arg (progn (if (eq (= marker-buffer org-export-dispatch-last-position) (org-base-buffer ...)) (go= to-char org-export-dispatch-last-position) (move-marker org-export-dispatch= -last-position nil)))) (funcall action (and (memq (quote async) optns) t) (= and (memq (quote subtree) optns) t) (and (memq (quote visible) optns) t) (a= nd (memq (quote body) optns) t)))))
=C2=A0 (let* ((input (cond ((= equal arg (quote (16))) (quote (stack))) ((and arg org-export-dispatch-last= -action)) (t (let ((wconfig ...)) (unwind-protect (progn ...) (set-window-c= onfiguration wconfig)))))) (action (car input)) (optns (cdr input))) (if (m= emq (quote subtree) optns) nil (move-marker org-export-dispatch-last-positi= on nil)) (cond ((eql action (quote template)) (org-export-insert-default-te= mplate nil optns)) ((eql action (quote stack)) (org-export-stack)) ((eql ac= tion (quote publish-current-file)) (org-publish-current-file (memq (quote f= orce) optns) (memq (quote async) optns))) ((eql action (quote publish-curre= nt-project)) (org-publish-current-project (memq (quote force) optns) (memq = (quote async) optns))) ((eql action (quote publish-choose-project)) (org-pu= blish (assoc (completing-read "Publish project: " org-publish-pro= ject-alist nil t) org-publish-project-alist) (memq (quote force) optns) (me= mq (quote async) optns))) ((eql action (quote publish-all)) (org-publish-al= l (memq (quote force) optns) (memq (quote async) optns))) (t (save-excursio= n (if arg (progn (if (eq ... ...) (goto-char org-export-dispatch-last-posit= ion) (move-marker org-export-dispatch-last-position nil)))) (funcall action= (and (memq (quote async) optns) t) (and (memq (quote subtree) optns) t) (a= nd (memq (quote visible) optns) t) (and (memq (quote body) optns) t))))))
=C2=A0 org-export-dispatch(nil)
=C2=A0 funcall-interacti= vely(org-export-dispatch nil)
=C2=A0 #<subr call-interactively= >(org-export-dispatch nil nil)
=C2=A0 ad-Advice-call-interacti= vely(#<subr call-interactively> org-export-dispatch nil nil)
=C2=A0 apply(ad-Advice-call-interactively #<subr call-interactively>= ; (org-export-dispatch nil nil))
=C2=A0 call-interactively(org-ex= port-dispatch nil nil)
=C2=A0 command-execute(org-export-dispatch= )

Thanks a l= ot!!


On Thu, Mar 10, 2016 at 1:19 AM Nicolas Goaziou <mail@nicolasgoaziou.fr> wrot= e:
Hello,

Shlomi Vaknin <shlomivaknin@gmail.com> writes:

> I managed to make another non-working example (should I make
> a gif showing what I see?):
>
> ---------------------------------------
>=C2=A0 - src_elisp{3} {{{results(=3D3=3D)}}}
>
> * B
>=C2=A0 =C2=A0- src_elisp{3} {{{results(=3D3=3D)}}}
>=C2=A0 =C2=A0-
>=C2=A0 =C2=A0-
>=C2=A0 =C2=A0-
>=C2=A0 =C2=A0- src_elisp{3} {{{results(=3D3=3D)}}}
>=C2=A0 =C2=A0- src_elisp{2} {{{results(=3D2=3D)}}}
>=C2=A0 =C2=A0- {{{results(=3D2=3D)}}}
> ---------------------------------------
>
> again, removing any line from this makes export work again. Otherwise = I get
> =3Dorg-element--current-element: Wrong type argument: integer-or-marke= r-p,
> nil=3D

I cannot reproduce the problem. Could you send a complete backtrace with un-compiled Org?

Also, could you try setting `org-element-use-cache' to nil?

Regards,

--
Nicolas Goaziou
--001a114a822a9053f3052dcc688c--