Subject: Bug: Exception when trying to export inlined-code [8.3.4 (8.3.4-9-gfda14f-elpa @ /Users/vaknins9/.emacs.d/elpa/org-20160307/)]

Subject: Bug: Exception when trying to export inlined-code [8.3.4 (8.3.4-9-gfda14f-elpa @ /Users/vaknins9/.emacs.d/elpa/org-20160307/)]

[Shlomi Vaknin]

[-- Attachment #1: Type: text/plain, Size: 43019 bytes --]

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-agenda-files '("~/org/work-august-2015.org" "~/org/home.org" "~/org/
notes.org")
 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=\"./css/style.css\" 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=\"./css/style.css\" 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")))
 )

[-- Attachment #2: Type: text/html, Size: 49077 bytes --]