Hey,
I am a heavy org-mode user, and I absolutely love it! One of my org-files stopped being exportable at some point. I managed to trace it to something to do with inline source blocks (of course it might not be the root cause..)
I am getting an exception (Wrong type argument: integer-or-marker-p,nil) when trying to export an org file with inlined code. Here is the smallest org file I could came up with that produces this error:
-----
* Test a
- src_elisp{3}
* Test Q
- src_elisp{3}
- test
- something
- src_elisp{3}
- src_elisp{3} {{{results(=3=)}}}
- src_elisp{3} {{{results(=3=)}}}
-----
If I remove any of the last {{{result...}}} sections the error goes away.
Could this be related to the new inline result format?
Here is a backtrace:
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(98 (60) ((25 2 "- " nil nil nil 30) (30 2 "- " nil nil nil 39) (39 2 "- " nil nil nil 110) (53 4 "- " nil nil nil 72) (72 4 "- " nil nil nil 110)))
(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) (let ((parser (assoc ... org-element-block-name-alist))) (if parser (funcall (cdr parser) limit affiliated) (org-element-special-block-parser 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) (let ((parser ...)) (if parser (funcall ... limit affiliated) (org-element-special-block-parser 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) (let ... ...)) ((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(98 element nil ((25 2 "- " nil nil nil 30) (30 2 "- " nil nil nil 39) (39 2 "- " nil nil nil 110) (53 4 "- " nil nil nil 72) (72 4 "- " nil nil nil 110)))
(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(77)
(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))) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (let ((timestamp ...)) (if (and timestamp ... ...) (progn ...))) (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 ...)) p) (while --dolist-tail-- (setq p (car --dolist-tail--)) (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 ...) 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-- ...) p) (while --dolist-tail-- (setq p ...) (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 (... 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 (... p) (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()
org-babel-exp-process-buffer(#<buffer
org-bug.org<2><2>>)
org-export-execute-babel-code()
org-export-as(html nil nil nil (:output-file "./org-bug.html"))
org-export-to-file(html "./org-bug.html" nil nil nil nil nil)
org-html-export-to-html(nil nil nil nil)
org-export-dispatch(nil)
funcall-interactively(org-export-dispatch nil)
#<subr call-interactively>(org-export-dispatch nil nil)
ad-Advice-call-interactively(#<subr call-interactively> org-export-dispatch nil nil)
apply(ad-Advice-call-interactively #<subr call-interactively> (org-export-dispatch nil nil))
call-interactively(org-export-dispatch nil nil)
command-execute(org-export-dispatch)
Thanks!
Shlomi
Emacs : GNU Emacs 25.0.50.1 (x86_64-apple-darwin13.4.0, NS appkit-1265.21 Version 10.9.5 (Build 13F1112))
of 2015-11-10
Package: Org-mode version 8.3.4 (8.3.4-9-gfda14f-elpa @ /Users/vaknins9/.emacs.d/elpa/org-20160307/)
current state:
==============
(setq
org-src-lang-modes '(("browser" . html) ("ocaml" . tuareg) ("elisp" . emacs-lisp) ("ditaa" . artist) ("asymptote" . asy)
("dot" . fundamental) ("sqlite" . sql) ("calc" . fundamental) ("C" . c) ("cpp" . c++) ("C++" . c++)
("screen" . shell-script) ("shell" . sh) ("bash" . sh))
org-tab-first-hook '(org-hide-block-toggle-maybe org-babel-hide-result-toggle-maybe org-babel-header-arg-expand)
org-latex-classes '(("beamer" "\\documentclass[presentation]{beamer}" ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
("article" "\\documentclass[11pt]{article}" ("\\section{%s}" . "\\section*{%s}")
("\\subsection{%s}" . "\\subsection*{%s}") ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
("\\paragraph{%s}" . "\\paragraph*{%s}") ("\\subparagraph{%s}" . "\\subparagraph*{%s}"))
("report" "\\documentclass[11pt]{report}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
("book" "\\documentclass[11pt]{book}" ("\\part{%s}" . "\\part*{%s}") ("\\chapter{%s}" . "\\chapter*{%s}")
("\\section{%s}" . "\\section*{%s}") ("\\subsection{%s}" . "\\subsection*{%s}")
("\\subsubsection{%s}" . "\\subsubsection*{%s}"))
)
org-reveal-slide-number "c"
org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
org-time-clocksum-format '(:work-days "%dd " :hours "%d" :require-hours t :minutes ":%02d" :require-minutes t)
org-occur-hook '(org-first-headline-recenter)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-html-format-drawer-function '(lambda (name contents) contents)
org-log-done 'time
org-latex-format-inlinetask-function 'org-latex-format-inlinetask-default-function
org-confirm-shell-link-function 'yes-or-no-p
org-image-actual-width 100
org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
org-latex-pdf-process '("pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"
"pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f"
"pdflatex -shell-escape -interaction nonstopmode -output-directory %o %f")
org-agenda-custom-commands '(("r" tags-todo "ri") ("T" tags-todo "tali"))
org-latex-format-headline-function 'org-latex-format-headline-default-function
org-after-todo-state-change-hook '(org-clock-out-if-current)
org-latex-format-drawer-function '(lambda (name contents) contents)
org-from-is-user-regexp "\\<Shlomi Vaknin\\>"
org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-babel-pre-tangle-hook '(save-buffer)
org-mode-hook '(org-mode-reftex-setup (lambda nil (org-bullets-mode 1)) er/add-org-mode-expansions
#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local] 5]
#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
org-babel-result-hide-spec org-babel-hide-all-hashes #[nil "\300\301!\207" [run-hooks prelude-org-mode-hook] 2])
org-export-coding-system 'utf-8
org-archive-hook '(org-attach-archive-delete-maybe)
org-ascii-format-drawer-function '(lambda (name contents width) contents)
org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-ditaa-eps-jar-path "/Users/vaknins9/.emacs.d/elpa/contrib/scripts/DitaaEps.jar"
org-link-abbrev-alist '(("papers" . "~/papers/%s.pdf"))
org-latex-packages-alist '(("" "minted" nil))
org-babel-tangle-lang-exts '(("D" . "d") ("C++" . "cpp") ("python" . "py") ("clojure" . "clj") ("emacs-lisp" . "el")
("elisp" . "el"))
org-confirm-elisp-link-function 'yes-or-no-p
org-html-htmlize-output-type 'css
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-babel-after-execute-hook '(org-redisplay-inline-images)
org-latex-listings 'minted
org-ditaa-jar-path "~/org-mode/org-8.2.7c/contrib/scripts/ditaa.jar"
org-html-format-headline-function 'org-html-format-headline-default-function
org-structure-template-alist '(("f" "#+BEGIN_info\n?\n#+END_info" "<div class=\"info\">\n\n</div>")
("n" "#+BEGIN_note\n?\n#+END_note" "<div class=\"note\">\n\n</div>")
("w" "#+BEGIN_warning\n?\n#+END_warning" "<div class=\"warning\">\n\n</div>")
("t" "#+BEGIN_TIP\n?\n#+END_TIP" "<div class=\"tip\">\n\n</div>")
("sho" "#+BEGIN_SRC sh :exports code :result none\n?\n#+END_SRC" "<src lang=\"?\">\n\n</src>")
("cljo" "#+BEGIN_SRC clojure :exports code :result none\n?\n#+END_SRC"
"<src lang=\"?\">\n\n</src>")
("clj" "#+BEGIN_SRC clojure ?\n\n#+END_SRC" "<src lang=\"?\">\n\n</src>")
("n" "#+BEGIN_NOTES\n?\n#+END_NOTES") ("s" "#+BEGIN_SRC ?\n\n#+END_SRC")
("e" "#+BEGIN_EXAMPLE\n?\n#+END_EXAMPLE") ("q" "#+BEGIN_QUOTE\n?\n#+END_QUOTE")
("v" "#+BEGIN_VERSE\n?\n#+END_VERSE") ("V" "#+BEGIN_VERBATIM\n?\n#+END_VERBATIM")
("c" "#+BEGIN_CENTER\n?\n#+END_CENTER") ("l" "#+BEGIN_LaTeX\n?\n#+END_LaTeX") ("L" "#+LaTeX: ")
("h" "#+BEGIN_HTML\n?\n#+END_HTML") ("H" "#+HTML: ") ("a" "#+BEGIN_ASCII\n?\n#+END_ASCII")
("A" "#+ASCII: ") ("i" "#+INDEX: ?") ("I" "#+INCLUDE: %file ?"))
org-mime-html-hook '(inline-css)
org-babel-load-languages '((ditaa . t) (python . t) (C . t) (clojure . t) (emacs-lisp . t) (clojure . t) (sh . t) (gnuplot . t))
org-html-format-inlinetask-function 'org-html-format-inlinetask-default-function
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-confirm-babel-evaluate nil
org-publish-project-alist '(("default" :base-directory "/Users/vaknins9/projects/blog/org//" :base-extension "org"
:publishing-directory "/Users/vaknins9/projects/blog//" :publishing-function
org-html-publish-to-html :headline-levels 4 :section-numbers nil :with-toc nil :html-head
"<link rel=\"stylesheet\" href="" type=\"text/css\"/>" :html-preamble t :recursive
t :make-index t :html-extension "html" :body-only t)
("post" :base-directory "/Users/vaknins9/projects/blog/org//" :base-extension "org"
:publishing-directory "/Users/vaknins9/projects/blog//_posts/" :publishing-function
org-html-publish-to-html :headline-levels 4 :section-numbers nil :with-toc nil :html-head
"<link rel=\"stylesheet\" href="" type=\"text/css\"/>" :html-preamble t :recursive
t :make-index t :html-extension "html" :body-only t)
("images" :base-directory "/Users/vaknins9/projects/blog/org//img" :base-extension "jpg\\|gif\\|png"
:publishing-directory "/Users/vaknins9/projects/blog//img" :publishing-function
org-publish-attachment :recursive t)
("js" :base-directory "/Users/vaknins9/projects/blog/org//js" :base-extension "js"
:publishing-directory "/Users/vaknins9/projects/blog//js" :publishing-function
org-publish-attachment :recursive t)
("css" :base-directory "/Users/vaknins9/projects/blog/org//css" :base-extension "css\\|el"
:publishing-directory "/Users/vaknins9/projects/blog//css" :publishing-function
org-publish-attachment :recursive t)
("web" :components ("images" "js" "css")))
)