[O] Error: (wrong-type-argument integer-or-marker-p nil)

[Sebastien Vauban]

Hello,

When trying to convert a document which contains R graphics, I get the error:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  goto-char(nil)
  (progn (goto-char link-end) (skip-chars-forward "     "))
  (setq post-blank (progn (goto-char link-end) (skip-chars-forward "    ")) end 
(point))
  (let ((begin (point)) end contents-begin contents-end link-end post-blank 
path type raw-link link search-option application) (cond ((and 
org-target-link-regexp (looking-at org-target-link-regexp)) (setq type "radio" 
link-end (match-end 0) path (org-match-string-no-properties 0))) ((looking-at 
org-bracket-link-regexp) (setq contents-begin (match-beginning 3) contents-end 
(match-end 3) link-end (match-end 0) raw-link (org-translate-link 
(org-link-expand-abbrev (org-match-string-no-properties 1)))) (cond ((or 
(file-name-absolute-p raw-link) (string-match "^\\.\\.?/" raw-link)) (setq type 
"file" path raw-link)) ((string-match org-link-re-with-space3 raw-link) (setq 
type (match-string 1 raw-link) path (match-string 2 raw-link))) ((string-match 
"^id:\\([-a-f0-9]+\\)" raw-link) (setq type "id" path (match-string 1 
raw-link))) ((string-match "^(\\(.*\\))$" raw-link) (setq type "coderef" path 
(match-string 1 raw-link))) ((= (aref raw-link 0) 35) (setq type "custom-id" 
path (substring raw-link 1))) (t (setq type "fuzzy" path raw-link)))) 
((looking-at org-plain-link-re) (setq raw-link (org-match-string-no-properties 
0) type (org-match-string-no-properties 1) link-end (match-end 0) path 
(org-match-string-no-properties 2))) ((looking-at org-angle-link-re) (setq 
raw-link (buffer-substring-no-properties (match-beginning 1) (match-end 2)) 
type (org-match-string-no-properties 1) link-end (match-end 0) path 
(org-match-string-no-properties 2)))) (setq post-blank (progn (goto-char 
link-end) (skip-chars-forward "         ")) end (point)) (if (member type 
org-element-link-type-is-file) (progn (cond ((string-match "^file\\+\\(.*\\)$" 
type) (setq application (match-string 1 type))) ((not (string-match "^file" 
type)) (setq application type))) (if (string-match "::\\(.*\\)$" path) (progn 
(setq search-option (match-string 1 path) path (replace-match "" nil nil 
path)))) (setq type "file"))) (list (quote link) (list :type type :path path 
:raw-link (or raw-link path) :application application :search-option 
search-option :begin begin :end end :contents-begin contents-begin 
:contents-end contents-end :post-blank post-blank)))
  (save-excursion (let ((begin (point)) end contents-begin contents-end 
link-end post-blank path type raw-link link search-option application) (cond 
((and org-target-link-regexp (looking-at org-target-link-regexp)) (setq type 
"radio" link-end (match-end 0) path (org-match-string-no-properties 0))) 
((looking-at org-bracket-link-regexp) (setq contents-begin (match-beginning 3) 
contents-end (match-end 3) link-end (match-end 0) raw-link (org-translate-link 
(org-link-expand-abbrev (org-match-string-no-properties 1)))) (cond ((or 
(file-name-absolute-p raw-link) (string-match "^\\.\\.?/" raw-link)) (setq type 
"file" path raw-link)) ((string-match org-link-re-with-space3 raw-link) (setq 
type (match-string 1 raw-link) path (match-string 2 raw-link))) ((string-match 
"^id:\\([-a-f0-9]+\\)" raw-link) (setq type "id" path (match-string 1 
raw-link))) ((string-match "^(\\(.*\\))$" raw-link) (setq type "coderef" path 
(match-string 1 raw-link))) ((= (aref raw-link 0) 35) (setq type "custom-id" 
path (substring raw-link 1))) (t (setq type "fuzzy" path raw-link)))) 
((looking-at org-plain-link-re) (setq raw-link (org-match-string-no-properties 
0) type (org-match-string-no-properties 1) link-end (match-end 0) path 
(org-match-string-no-properties 2))) ((looking-at org-angle-link-re) (setq 
raw-link (buffer-substring-no-properties (match-beginning 1) (match-end 2)) 
type (org-match-string-no-properties 1) link-end (match-end 0) path 
(org-match-string-no-properties 2)))) (setq post-blank (progn (goto-char 
link-end) (skip-chars-forward "         ")) end (point)) (if (member type 
org-element-link-type-is-file) (progn (cond ((string-match "^file\\+\\(.*\\)$" 
type) (setq application (match-string 1 type))) ((not (string-match "^file" 
type)) (setq application type))) (if (string-match "::\\(.*\\)$" path) (progn 
(setq search-option (match-string 1 path) path (replace-match "" nil nil 
path)))) (setq type "file"))) (list (quote link) (list :type type :path path 
:raw-link (or raw-link path) :application application :search-option 
search-option :begin begin :end end :contents-begin contents-begin 
:contents-end contents-end :post-blank post-blank))))
  org-element-link-parser()
  funcall(org-element-link-parser)
  (setq next (funcall (intern (format "org-element-%s-parser" (car closest)))))
  (if (or (not closest) (> (cdr closest) origin)) (catch (quote found) (progn 
(let ((--dolist-tail-- (cddr objects-data)) obj) (while --dolist-tail-- (setq 
obj (car --dolist-tail--)) (if (<= (org-element-property :begin obj) origin) 
(progn (if ... ... ...))) (setq --dolist-tail-- (cdr --dolist-tail--))) (setq 
obj nil) (throw (quote exit) parent)))) (goto-char (cdr closest)) (setq next 
(funcall (intern (format "org-element-%s-parser" (car closest))))) (if 
org-element-use-cache (progn (let* ((v objects-data)) (setcdr (cdr v) (cons 
next (cddr v)))) (or update-cache-flag (setq update-cache-flag t)))))
  (let ((closest (and candidates (rassq (apply (function min) (mapcar (function 
cdr) candidates)) candidates)))) (if (or (not closest) (> (cdr closest) 
origin)) (catch (quote found) (progn (let ((--dolist-tail-- (cddr 
objects-data)) obj) (while --dolist-tail-- (setq obj (car --dolist-tail--)) (if 
(<= ... origin) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) 
(setq obj nil) (throw (quote exit) parent)))) (goto-char (cdr closest)) (setq 
next (funcall (intern (format "org-element-%s-parser" (car closest))))) (if 
org-element-use-cache (progn (let* ((v objects-data)) (setcdr (cdr v) (cons 
next (cddr v)))) (or update-cache-flag (setq update-cache-flag t))))))
  (while t (if (and (not next) org-element-use-cache) (progn (let ((data (assq 
(point) cache))) (if data (setq candidates (nth 1 (setq objects-data data))) 
(setq cache (cons (setq objects-data ...) cache)))))) (if (or next (eq (quote 
initial) candidates)) (progn (setq candidates 
(org-element--get-next-object-candidates restriction candidates)) (if 
org-element-use-cache (progn (setcar (cdr objects-data) candidates) (or 
update-cache-flag (setq update-cache-flag t)))))) (let ((closest (and 
candidates (rassq (apply (function min) (mapcar ... candidates)) candidates)))) 
(if (or (not closest) (> (cdr closest) origin)) (catch (quote found) (progn 
(let ((--dolist-tail-- ...) obj) (while --dolist-tail-- (setq obj ...) (if ... 
...) (setq --dolist-tail-- ...)) (setq obj nil) (throw (quote exit) parent)))) 
(goto-char (cdr closest)) (setq next (funcall (intern (format 
"org-element-%s-parser" (car closest))))) (if org-element-use-cache (progn 
(let* ((v objects-data)) (setcdr (cdr v) (cons next ...))) (or 
update-cache-flag (setq update-cache-flag t)))))) (let ((cbeg 
(org-element-property :contents-begin next)) (cend (org-element-property 
:contents-end next)) (obj-end (org-element-property :end next))) (cond ((<= 
obj-end origin) (goto-char obj-end)) ((or (not cbeg) (< origin cbeg) (>= origin 
cend)) (throw (quote exit) (org-element-put-property next :parent parent))) (t 
(goto-char cbeg) (narrow-to-region (point) cend) (org-element-put-property next 
:parent parent) (setq parent next restriction (org-element-restriction next) 
next nil objects-data nil candidates (quote initial))))))
  (catch (quote exit) (while t (if (and (not next) org-element-use-cache) 
(progn (let ((data (assq ... cache))) (if data (setq candidates (nth 1 ...)) 
(setq cache (cons ... cache)))))) (if (or next (eq (quote initial) candidates)) 
(progn (setq candidates (org-element--get-next-object-candidates restriction 
candidates)) (if org-element-use-cache (progn (setcar (cdr objects-data) 
candidates) (or update-cache-flag (setq update-cache-flag t)))))) (let 
((closest (and candidates (rassq (apply ... ...) candidates)))) (if (or (not 
closest) (> (cdr closest) origin)) (catch (quote found) (progn (let (... obj) 
(while --dolist-tail-- ... ... ...) (setq obj nil) (throw ... parent)))) 
(goto-char (cdr closest)) (setq next (funcall (intern (format 
"org-element-%s-parser" ...)))) (if org-element-use-cache (progn (let* (...) 
(setcdr ... ...)) (or update-cache-flag (setq update-cache-flag t)))))) (let 
((cbeg (org-element-property :contents-begin next)) (cend (org-element-property 
:contents-end next)) (obj-end (org-element-property :end next))) (cond ((<= 
obj-end origin) (goto-char obj-end)) ((or (not cbeg) (< origin cbeg) (>= origin 
cend)) (throw (quote exit) (org-element-put-property next :parent parent))) (t 
(goto-char cbeg) (narrow-to-region (point) cend) (org-element-put-property next 
:parent parent) (setq parent next restriction (org-element-restriction next) 
next nil objects-data nil candidates (quote initial)))))))
  (prog1 (catch (quote exit) (while t (if (and (not next) 
org-element-use-cache) (progn (let ((data ...)) (if data (setq candidates ...) 
(setq cache ...))))) (if (or next (eq (quote initial) candidates)) (progn (setq 
candidates (org-element--get-next-object-candidates restriction candidates)) 
(if org-element-use-cache (progn (setcar ... candidates) (or update-cache-flag 
...))))) (let ((closest (and candidates (rassq ... candidates)))) (if (or (not 
closest) (> (cdr closest) origin)) (catch (quote found) (progn (let ... ... ... 
...))) (goto-char (cdr closest)) (setq next (funcall (intern ...))) (if 
org-element-use-cache (progn (let* ... ...) (or update-cache-flag ...))))) (let 
((cbeg (org-element-property :contents-begin next)) (cend (org-element-property 
:contents-end next)) (obj-end (org-element-property :end next))) (cond ((<= 
obj-end origin) (goto-char obj-end)) ((or (not cbeg) (< origin cbeg) (>= origin 
cend)) (throw (quote exit) (org-element-put-property next :parent parent))) (t 
(goto-char cbeg) (narrow-to-region (point) cend) (org-element-put-property next 
:parent parent) (setq parent next restriction (org-element-restriction next) 
next nil objects-data nil candidates (quote initial))))))) (if (and 
update-cache-flag (derived-mode-p (quote org-mode))) (progn 
(org-element-cache-put cache-key (cons element cache)))))
  (let* ((restriction (org-element-restriction type)) (parent element) 
(candidates (quote initial)) (cache-key (org-element--cache-get-key element)) 
(cache (org-element-cache-get cache-key (quote objects))) objects-data next 
update-cache-flag) (prog1 (catch (quote exit) (while t (if (and (not next) 
org-element-use-cache) (progn (let (...) (if data ... ...)))) (if (or next (eq 
(quote initial) candidates)) (progn (setq candidates 
(org-element--get-next-object-candidates restriction candidates)) (if 
org-element-use-cache (progn ... ...)))) (let ((closest (and candidates ...))) 
(if (or (not closest) (> ... origin)) (catch (quote found) (progn ...)) 
(goto-char (cdr closest)) (setq next (funcall ...)) (if org-element-use-cache 
(progn ... ...)))) (let ((cbeg (org-element-property :contents-begin next)) 
(cend (org-element-property :contents-end next)) (obj-end (org-element-property 
:end next))) (cond ((<= obj-end origin) (goto-char obj-end)) ((or ... ... ...) 
(throw ... ...)) (t (goto-char cbeg) (narrow-to-region ... cend) 
(org-element-put-property next :parent parent) (setq parent next restriction 
... next nil objects-data nil candidates ...)))))) (if (and update-cache-flag 
(derived-mode-p (quote org-mode))) (progn (org-element-cache-put cache-key 
(cons element cache))))))
  (let* ((origin (point)) (element (or element (org-element-at-point))) (type 
(org-element-type element))) (cond ((let ((post (org-element-property 
:post-affiliated element))) (and post (< origin 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) origin) (narrow-to-region 
(match-end 0) (line-end-position))) ((and (match-beginning 2) (>= origin 
(match-beginning 2)) (< origin (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 (not tag) (throw (quote 
objects-forbidden) element) (beginning-of-line) (search-forward tag 
(line-end-position)) (goto-char (match-beginning 0)) (if (and (>= origin ...) 
(< origin ...)) (narrow-to-region (point) (match-end 0)) (throw (quote 
objects-forbidden) element))))) ((memq type (quote (headline inlinetask))) 
(goto-char (org-element-property :begin element)) (skip-chars-forward "* ") (if 
(and (>= origin (point)) (< origin (line-end-position))) (narrow-to-region 
(point) (line-end-position)) (throw (quote objects-forbidden) element))) ((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 (>= origin cbeg) (< origin cend)) 
(narrow-to-region cbeg cend) (throw (quote objects-forbidden) element)))) ((eq 
type (quote keyword)) (if (not (member (org-element-property :key element) 
org-element-document-properties)) (throw (quote objects-forbidden) element) 
(beginning-of-line) (search-forward ":") (if (and (>= origin (point)) (< origin 
(line-end-position))) (narrow-to-region (point) (line-end-position)) (throw 
(quote objects-forbidden) element)))) (t (throw (quote objects-forbidden) 
element))) (goto-char (point-min)) (let* ((restriction (org-element-restriction 
type)) (parent element) (candidates (quote initial)) (cache-key 
(org-element--cache-get-key element)) (cache (org-element-cache-get cache-key 
(quote objects))) objects-data next update-cache-flag) (prog1 (catch (quote 
exit) (while t (if (and (not next) org-element-use-cache) (progn (let ... 
...))) (if (or next (eq ... candidates)) (progn (setq candidates ...) (if 
org-element-use-cache ...))) (let ((closest ...)) (if (or ... ...) (catch ... 
...) (goto-char ...) (setq next ...) (if org-element-use-cache ...))) (let 
((cbeg ...) (cend ...) (obj-end ...)) (cond (... ...) (... ...) (t ... ... ... 
...))))) (if (and update-cache-flag (derived-mode-p (quote org-mode))) (progn 
(org-element-cache-put cache-key (cons element cache)))))))
  (save-restriction (widen) (let* ((origin (point)) (element (or element 
(org-element-at-point))) (type (org-element-type element))) (cond ((let ((post 
(org-element-property :post-affiliated element))) (and post (< origin 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) origin) (narrow-to-region (match-end 0) (line-end-position))) 
((and (match-beginning 2) (>= origin ...) (< origin ...)) (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 (not tag) (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)) 
(skip-chars-forward "* ") (if (and (>= origin (point)) (< origin 
(line-end-position))) (narrow-to-region (point) (line-end-position)) (throw 
(quote objects-forbidden) element))) ((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 (>= 
origin cbeg) (< origin cend)) (narrow-to-region cbeg cend) (throw (quote 
objects-forbidden) element)))) ((eq type (quote keyword)) (if (not (member 
(org-element-property :key element) org-element-document-properties)) (throw 
(quote objects-forbidden) element) (beginning-of-line) (search-forward ":") (if 
(and (>= origin ...) (< origin ...)) (narrow-to-region (point) 
(line-end-position)) (throw (quote objects-forbidden) element)))) (t (throw 
(quote objects-forbidden) element))) (goto-char (point-min)) (let* 
((restriction (org-element-restriction type)) (parent element) (candidates 
(quote initial)) (cache-key (org-element--cache-get-key element)) (cache 
(org-element-cache-get cache-key (quote objects))) objects-data next 
update-cache-flag) (prog1 (catch (quote exit) (while t (if (and ... 
org-element-use-cache) (progn ...)) (if (or next ...) (progn ... ...)) (let 
(...) (if ... ... ... ... ...)) (let (... ... ...) (cond ... ... ...)))) (if 
(and update-cache-flag (derived-mode-p (quote org-mode))) (progn 
(org-element-cache-put cache-key (cons element cache))))))))
  (save-excursion (save-restriction (widen) (let* ((origin (point)) (element 
(or element (org-element-at-point))) (type (org-element-type element))) (cond 
((let ((post ...)) (and post (< origin post))) (beginning-of-line) (let 
((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not 
...) (throw ... element)) ((< ... origin) (narrow-to-region ... ...)) ((and ... 
... ...) (narrow-to-region ... ...)) (t (throw ... element))) (setq type (quote 
keyword))) ((eq type (quote item)) (let ((tag ...)) (if (not tag) (throw ... 
element) (beginning-of-line) (search-forward tag ...) (goto-char ...) (if ... 
... ...)))) ((memq type (quote (headline inlinetask))) (goto-char 
(org-element-property :begin element)) (skip-chars-forward "* ") (if (and (>= 
origin ...) (< origin ...)) (narrow-to-region (point) (line-end-position)) 
(throw (quote objects-forbidden) element))) ((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 
keyword)) (if (not (member ... org-element-document-properties)) (throw (quote 
objects-forbidden) element) (beginning-of-line) (search-forward ":") (if (and 
... ...) (narrow-to-region ... ...) (throw ... element)))) (t (throw (quote 
objects-forbidden) element))) (goto-char (point-min)) (let* ((restriction 
(org-element-restriction type)) (parent element) (candidates (quote initial)) 
(cache-key (org-element--cache-get-key element)) (cache (org-element-cache-get 
cache-key (quote objects))) objects-data next update-cache-flag) (prog1 (catch 
(quote exit) (while t (if ... ...) (if ... ...) (let ... ...) (let ... ...))) 
(if (and update-cache-flag (derived-mode-p ...)) (progn (org-element-cache-put 
cache-key ...))))))))
  (catch (quote objects-forbidden) (save-excursion (save-restriction (widen) 
(let* ((origin (point)) (element (or element (org-element-at-point))) (type 
(org-element-type element))) (cond ((let (...) (and 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)) (skip-chars-forward "* 
") (if (and ... ...) (narrow-to-region ... ...) (throw ... element))) ((memq 
type (quote ...)) (let (... ...) (if ... ... ...))) ((eq type (quote keyword)) 
(if (not ...) (throw ... element) (beginning-of-line) (search-forward ":") (if 
... ... ...))) (t (throw (quote objects-forbidden) element))) (goto-char 
(point-min)) (let* ((restriction (org-element-restriction type)) (parent 
element) (candidates (quote initial)) (cache-key (org-element--cache-get-key 
element)) (cache (org-element-cache-get cache-key ...)) objects-data next 
update-cache-flag) (prog1 (catch (quote exit) (while t ... ... ... ...)) (if 
(and update-cache-flag ...) (progn ...))))))))
  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 ((link (let ((save-match-data-internal (match-data))) (unwind-protect 
(progn (org-element-context)) (set-match-data save-match-data-internal (quote 
evaporate)))))) (if (and (equal (org-element-property :type link) "file") (or 
include-linked (not (org-element-property :contents-begin link))) (let ((parent 
(org-element-property :parent link))) (or (not (eq (org-element-type parent) 
(quote link))) (not (cdr (org-element-contents parent))))) (org-string-match-p 
file-extension-re (org-element-property :path link))) (progn (let ((file 
(expand-file-name (org-element-property :path link)))) (if (file-exists-p file) 
(progn (let (... ...) (if ... ... ...))))))))
  (while (re-search-forward "[][]\\[\\(?:file\\|[./~]\\)" end t) (let ((link 
(let ((save-match-data-internal (match-data))) (unwind-protect (progn 
(org-element-context)) (set-match-data save-match-data-internal (quote 
evaporate)))))) (if (and (equal (org-element-property :type link) "file") (or 
include-linked (not (org-element-property :contents-begin link))) (let ((parent 
(org-element-property :parent link))) (or (not (eq ... ...)) (not (cdr ...)))) 
(org-string-match-p file-extension-re (org-element-property :path link))) 
(progn (let ((file (expand-file-name ...))) (if (file-exists-p file) (progn 
(let ... ...))))))))
  (let ((case-fold-search t) (file-extension-re (org-image-file-name-regexp))) 
(while (re-search-forward "[][]\\[\\(?:file\\|[./~]\\)" end t) (let ((link (let 
((save-match-data-internal ...)) (unwind-protect (progn ...) (set-match-data 
save-match-data-internal ...))))) (if (and (equal (org-element-property :type 
link) "file") (or include-linked (not (org-element-property :contents-begin 
link))) (let ((parent ...)) (or (not ...) (not ...))) (org-string-match-p 
file-extension-re (org-element-property :path link))) (progn (let ((file ...)) 
(if (file-exists-p file) (progn ...))))))))
  (save-restriction (widen) (goto-char (or beg (point-min))) (let 
((case-fold-search t) (file-extension-re (org-image-file-name-regexp))) (while 
(re-search-forward "[][]\\[\\(?:file\\|[./~]\\)" end t) (let ((link (let (...) 
(unwind-protect ... ...)))) (if (and (equal (org-element-property :type link) 
"file") (or include-linked (not ...)) (let (...) (or ... ...)) 
(org-string-match-p file-extension-re (org-element-property :path link))) 
(progn (let (...) (if ... ...))))))))
  (save-excursion (save-restriction (widen) (goto-char (or beg (point-min))) 
(let ((case-fold-search t) (file-extension-re (org-image-file-name-regexp))) 
(while (re-search-forward "[][]\\[\\(?:file\\|[./~]\\)" end t) (let ((link (let 
... ...))) (if (and (equal ... "file") (or include-linked ...) (let ... ...) 
(org-string-match-p file-extension-re ...)) (progn (let ... ...))))))))
  (progn (if refresh nil (org-remove-inline-images) (if (fboundp (quote 
clear-image-cache)) (progn (clear-image-cache)))) (save-excursion 
(save-restriction (widen) (goto-char (or beg (point-min))) (let 
((case-fold-search t) (file-extension-re (org-image-file-name-regexp))) (while 
(re-search-forward "[][]\\[\\(?:file\\|[./~]\\)" end t) (let ((link ...)) (if 
(and ... ... ... ...) (progn ...))))))))
  (if (display-graphic-p) (progn (if refresh nil (org-remove-inline-images) (if 
(fboundp (quote clear-image-cache)) (progn (clear-image-cache)))) 
(save-excursion (save-restriction (widen) (goto-char (or beg (point-min))) (let 
((case-fold-search t) (file-extension-re (org-image-file-name-regexp))) (while 
(re-search-forward "[][]\\[\\(?:file\\|[./~]\\)" end t) (let (...) (if ... 
...))))))))
  org-display-inline-images()
  run-hooks(org-babel-after-execute-hook)
  (let ((call-process-region (function (lambda (&rest args) (apply (quote 
org-babel-tramp-handle-call-process-region) args))))) (let ((lang-check 
(function (lambda (f) (let (...) (if ... ...)))))) (setq cmd (or (funcall 
lang-check lang) (funcall lang-check (symbol-name (cdr (assoc lang 
org-src-lang-modes)))) (error "No org-babel-execute function for %s!" lang)))) 
(message "executing %s code block%s..." (capitalize lang) (if (nth 4 info) 
(format " (%s)" (nth 4 info)) "")) (if (member "none" result-params) (progn 
(funcall cmd body params) (message "result silenced") (setq result nil)) (setq 
result (let ((result (funcall cmd body params))) (if (and (eq (cdr ...) (quote 
value)) (or (member "vector" result-params) (member "table" result-params)) 
(not (listp result))) (list (list result)) result))) (if (cdr (assoc :file 
params)) (progn (if result (progn (let (... ...) (unwind-protect ... ...)))) 
(setq result (cdr (assoc :file params))))) (if (cdr (assoc :post params)) 
(progn (let ((*this* (if ... ... result))) (setq result (org-babel-ref-resolve 
(cdr ...))) (if (cdr (assoc :file params)) (progn (setq result-params ...)))))) 
(org-babel-insert-result result result-params info new-hash indent lang)) 
(run-hooks (quote org-babel-after-execute-hook)) result)
  (unwind-protect (let ((call-process-region (function (lambda (&rest args) 
(apply (quote org-babel-tramp-handle-call-process-region) args))))) (let 
((lang-check (function (lambda (f) (let ... ...))))) (setq cmd (or (funcall 
lang-check lang) (funcall lang-check (symbol-name (cdr ...))) (error "No 
org-babel-execute function for %s!" lang)))) (message "executing %s code 
block%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) 
"")) (if (member "none" result-params) (progn (funcall cmd body params) 
(message "result silenced") (setq result nil)) (setq result (let ((result 
(funcall cmd body params))) (if (and (eq ... ...) (or ... ...) (not ...)) (list 
(list result)) result))) (if (cdr (assoc :file params)) (progn (if result 
(progn (let ... ...))) (setq result (cdr (assoc :file params))))) (if (cdr 
(assoc :post params)) (progn (let ((*this* ...)) (setq result 
(org-babel-ref-resolve ...)) (if (cdr ...) (progn ...))))) 
(org-babel-insert-result result result-params info new-hash indent lang)) 
(run-hooks (quote org-babel-after-execute-hook)) result) (setq 
call-process-region (quote org-babel-call-process-region-original)))
  (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-params 
params))) (body (let* ((c (nthcdr 1 info))) (setcar c (if (org-babel-noweb-p 
params :eval) (org-babel-expand-noweb-references info) (nth 1 info))))) (dir 
(cdr (assoc :dir params))) (default-directory (or (and dir 
(file-name-as-directory (expand-file-name dir))) default-directory)) 
(org-babel-call-process-region-original (or (and (boundp (quote 
org-babel-call-process-region-original)) 
org-babel-call-process-region-original) (symbol-function (quote 
call-process-region)))) (indent (nth 5 info)) result cmd) (unwind-protect (let 
((call-process-region (function (lambda (&rest args) (apply ... args))))) (let 
((lang-check (function (lambda ... ...)))) (setq cmd (or (funcall lang-check 
lang) (funcall lang-check (symbol-name ...)) (error "No org-babel-execute 
function for %s!" lang)))) (message "executing %s code block%s..." (capitalize 
lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) "")) (if (member "none" 
result-params) (progn (funcall cmd body params) (message "result silenced") 
(setq result nil)) (setq result (let ((result ...)) (if (and ... ... ...) (list 
...) result))) (if (cdr (assoc :file params)) (progn (if result (progn ...)) 
(setq result (cdr ...)))) (if (cdr (assoc :post params)) (progn (let (...) 
(setq result ...) (if ... ...)))) (org-babel-insert-result result result-params 
info new-hash indent lang)) (run-hooks (quote org-babel-after-execute-hook)) 
result) (setq call-process-region (quote 
org-babel-call-process-region-original))))
  (cond (cache-current-p (save-excursion (goto-char 
(org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 
1) (let ((result (org-babel-read-result))) (message (replace-regexp-in-string 
"%" "%%" (format "%S" result))) result))) ((org-babel-confirm-evaluate (let ((i 
info)) (let* ((c (nthcdr 2 i))) (setcar c merged-params)) i)) (let* ((lang (nth 
0 info)) (result-params (cdr (assoc :result-params params))) (body (let* ((c 
...)) (setcar c (if ... ... ...)))) (dir (cdr (assoc :dir params))) 
(default-directory (or (and dir (file-name-as-directory ...)) 
default-directory)) (org-babel-call-process-region-original (or (and (boundp 
...) org-babel-call-process-region-original) (symbol-function (quote 
call-process-region)))) (indent (nth 5 info)) result cmd) (unwind-protect (let 
((call-process-region (function ...))) (let ((lang-check ...)) (setq cmd (or 
... ... ...))) (message "executing %s code block%s..." (capitalize lang) (if 
(nth 4 info) (format " (%s)" ...) "")) (if (member "none" result-params) (progn 
(funcall cmd body params) (message "result silenced") (setq result nil)) (setq 
result (let ... ...)) (if (cdr ...) (progn ... ...)) (if (cdr ...) (progn ...)) 
(org-babel-insert-result result result-params info new-hash indent lang)) 
(run-hooks (quote org-babel-after-execute-hook)) result) (setq 
call-process-region (quote org-babel-call-process-region-original))))))
  (let* ((params (if params (org-babel-process-params merged-params) (nth 2 
info))) (cachep (and (not arg) (cdr (assoc :cache params)) (string= "yes" (cdr 
(assoc :cache params))))) (new-hash (if cachep (progn (org-babel-sha1-hash 
info)))) (old-hash (if cachep (progn (org-babel-current-result-hash)))) 
(cache-current-p (and (not arg) new-hash (equal new-hash old-hash)))) (cond 
(cache-current-p (save-excursion (goto-char 
(org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 
1) (let ((result (org-babel-read-result))) (message (replace-regexp-in-string 
"%" "%%" (format "%S" result))) result))) ((org-babel-confirm-evaluate (let ((i 
info)) (let* ((c ...)) (setcar c merged-params)) i)) (let* ((lang (nth 0 info)) 
(result-params (cdr (assoc :result-params params))) (body (let* (...) (setcar c 
...))) (dir (cdr (assoc :dir params))) (default-directory (or (and dir ...) 
default-directory)) (org-babel-call-process-region-original (or (and ... 
org-babel-call-process-region-original) (symbol-function ...))) (indent (nth 5 
info)) result cmd) (unwind-protect (let ((call-process-region ...)) (let (...) 
(setq cmd ...)) (message "executing %s code block%s..." (capitalize lang) (if 
... ... "")) (if (member "none" result-params) (progn ... ... ...) (setq result 
...) (if ... ...) (if ... ...) (org-babel-insert-result result result-params 
info new-hash indent lang)) (run-hooks (quote org-babel-after-execute-hook)) 
result) (setq call-process-region (quote 
org-babel-call-process-region-original)))))))
  (progn (let* ((params (if params (org-babel-process-params merged-params) 
(nth 2 info))) (cachep (and (not arg) (cdr (assoc :cache params)) (string= 
"yes" (cdr (assoc :cache params))))) (new-hash (if cachep (progn 
(org-babel-sha1-hash info)))) (old-hash (if cachep (progn 
(org-babel-current-result-hash)))) (cache-current-p (and (not arg) new-hash 
(equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char 
(org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 
1) (let ((result ...)) (message (replace-regexp-in-string "%" "%%" ...)) 
result))) ((org-babel-confirm-evaluate (let ((i info)) (let* (...) (setcar c 
merged-params)) i)) (let* ((lang (nth 0 info)) (result-params (cdr ...)) (body 
(let* ... ...)) (dir (cdr ...)) (default-directory (or ... default-directory)) 
(org-babel-call-process-region-original (or ... ...)) (indent (nth 5 info)) 
result cmd) (unwind-protect (let (...) (let ... ...) (message "executing %s 
code block%s..." ... ...) (if ... ... ... ... ... ...) (run-hooks ...) result) 
(setq call-process-region (quote org-babel-call-process-region-original))))))))
  (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) 
(setcar c merged-params)) i)) (progn (let* ((params (if params 
(org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not arg) 
(cdr (assoc :cache params)) (string= "yes" (cdr ...)))) (new-hash (if cachep 
(progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn 
(org-babel-current-result-hash)))) (cache-current-p (and (not arg) new-hash 
(equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char 
(org-babel-where-is-src-block-result nil info)) (end-of-line 1) (forward-char 
1) (let (...) (message ...) result))) ((org-babel-confirm-evaluate (let (...) 
(let* ... ...) i)) (let* ((lang ...) (result-params ...) (body ...) (dir ...) 
(default-directory ...) (org-babel-call-process-region-original ...) (indent 
...) result cmd) (unwind-protect (let ... ... ... ... ... result) (setq 
call-process-region ...))))))))
  (let* ((org-babel-current-src-block-location (or 
org-babel-current-src-block-location (nth 6 info) 
(org-babel-where-is-src-block-head))) (info (if info (copy-tree info) 
(org-babel-get-src-block-info))) (merged-params (org-babel-merge-params (nth 2 
info) params))) (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 
2 i))) (setcar c merged-params)) i)) (progn (let* ((params (if params 
(org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not arg) 
(cdr ...) (string= "yes" ...))) (new-hash (if cachep (progn ...))) (old-hash 
(if cachep (progn ...))) (cache-current-p (and (not arg) new-hash (equal 
new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char ...) 
(end-of-line 1) (forward-char 1) (let ... ... result))) 
((org-babel-confirm-evaluate (let ... ... i)) (let* (... ... ... ... ... ... 
... result cmd) (unwind-protect ... ...))))))))
  org-babel-execute-src-block(nil ("emacs-lisp" "results" ((:var . 
"results=dir_informatix[]()"))) ((:results . "silent")))
  (let ((params (eval (list (quote org-babel-parse-header-arguments) (cons 
(quote concat) (cons ":var results=" (cons source-block ...))))))) 
(org-babel-execute-src-block nil (list "emacs-lisp" "results" params) (quote 
((:results . "silent")))))
  (if (and source-block (> (length source-block) 0)) (let ((params (eval (list 
(quote org-babel-parse-header-arguments) (cons (quote concat) (cons ":var 
results=" ...)))))) (org-babel-execute-src-block nil (list "emacs-lisp" 
"results" params) (quote ((:results . "silent"))))) "")
  (let ((result (if (and source-block (> (length source-block) 0)) (let 
((params (eval ...))) (org-babel-execute-src-block nil (list "emacs-lisp" 
"results" params) (quote (...)))) ""))) (org-babel-trim (if (stringp result) 
result (format "%S" result))))
  (let* (quote (variables (mapcar (function (lambda (var) (cons (car var) (delq 
nil ...)))) variables))) (if (stringp source-block) nil (setq source-block 
(symbol-name source-block))) (let ((result (if (and source-block (> (length 
source-block) 0)) (let ((params ...)) (org-babel-execute-src-block nil (list 
"emacs-lisp" "results" params) (quote ...))) ""))) (org-babel-trim (if (stringp 
result) result (format "%S" result)))))
  (let* ((header-args (if (stringp (car variables)) (car variables) "")) 
(variables (if (stringp (car variables)) (cdr variables) variables))) (let* 
(quote (variables (mapcar (function (lambda (var) (cons ... ...))) variables))) 
(if (stringp source-block) nil (setq source-block (symbol-name source-block))) 
(let ((result (if (and source-block (> ... 0)) (let (...) 
(org-babel-execute-src-block nil ... ...)) ""))) (org-babel-trim (if (stringp 
result) result (format "%S" result))))))
  (lambda (source-block &rest variables) "Return the results of calling 
SOURCE-BLOCK with VARIABLES.\nEach element of VARIABLES should be a 
two\nelement list, whose first element is the name of the variable and\nsecond 
element is a string of its value.  The following call to\n`sbe' would be 
equivalent to the following source code block.\n\n (sbe 'source-block (n $2) (m 
3))\n\n#+begin_src emacs-lisp :var results=source-block(n=val_at_col_2, m=3) 
:results silent\nresults\n#+end_src\n\nNOTE: by default string variable names 
are interpreted as\nreferences to source-code blocks, to force interpretation 
of a\ncell's value as a string, prefix the identifier a \"$\" (e.g.,\n\"$$2\" 
instead of \"$2\" or \"address@hidden" instead of \"@2$2\").\n\nNOTE: it is 
also possible to pass header arguments to the code\nblock.  In this case a 
table cell should hold the string value of\nthe header argument which can then 
be passed before all variables\nas shown in the example below.\n\n| 1 | 2 | 
:file nothing.png | nothing.png |\n#+TBLFM: @1$4='(sbe test-sbe $3 (x $1) (y 
$2))" (let* ((header-args (if (stringp (car variables)) (car variables) "")) 
(variables (if (stringp (car variables)) (cdr variables) variables))) (let* 
(quote (variables (mapcar (function (lambda ... ...)) variables))) (if (stringp 
source-block) nil (setq source-block (symbol-name source-block))) (let ((result 
(if (and source-block ...) (let ... ...) ""))) (org-babel-trim (if (stringp 
result) result (format "%S" result)))))))("dir_informatix")
  (sbe "dir_informatix")
  (concat (sbe "dir_informatix") "/boxplot-tarif-devis.png")
  eval((concat (sbe "dir_informatix") "/boxplot-tarif-devis.png"))
  (if (and (not inhibit-lisp-eval) (or (member (substring cell 0 1) (quote ("(" 
"'" "`" "["))) (string= cell "*this*"))) (eval (read cell)) (if (string= 
(substring cell 0 1) "\"") (read cell) (progn (set-text-properties 0 (length 
cell) nil cell) cell)))
  (or (org-babel-number-p cell) (if (and (not inhibit-lisp-eval) (or (member 
(substring cell 0 1) (quote ("(" "'" "`" "["))) (string= cell "*this*"))) (eval 
(read cell)) (if (string= (substring cell 0 1) "\"") (read cell) (progn 
(set-text-properties 0 (length cell) nil cell) cell))))
  (if (and (stringp cell) (not (equal cell ""))) (or (org-babel-number-p cell) 
(if (and (not inhibit-lisp-eval) (or (member (substring cell 0 1) (quote ("(" 
"'" "`" "["))) (string= cell "*this*"))) (eval (read cell)) (if (string= 
(substring cell 0 1) "\"") (read cell) (progn (set-text-properties 0 (length 
cell) nil cell) cell)))) cell)
  org-babel-read("(concat (sbe \"dir_informatix\") 
\"/boxplot-tarif-devis.png\")")
  (cons (intern (match-string 1 arg)) (org-babel-read (org-babel-chomp 
(match-string 2 arg))))
  (if (string-match "\\([^ \f   \n]+\\)[ \f    \n]+\\([^ \f   \n]+.*\\)" 
arg) (cons (intern (match-string 1 arg)) (org-babel-read (org-babel-chomp 
(match-string 2 arg)))) (cons (intern (org-babel-chomp arg)) nil))
  (lambda (arg) (if (string-match "\\([^ \f     \n]+\\)[ \f    \n]+\\([^ \f   
\n]+.*\\)" arg) (cons (intern (match-string 1 arg)) (org-babel-read 
(org-babel-chomp (match-string 2 arg)))) (cons (intern (org-babel-chomp arg)) 
nil)))(":file (concat (sbe \"dir_informatix\") \"/boxplot-tarif-devis.png\")")
  mapcar((lambda (arg) (if (string-match "\\([^ \f      \n]+\\)[ \f    
\n]+\\([^ \f   \n]+.*\\)" arg) (cons (intern (match-string 1 arg)) 
(org-babel-read (org-babel-chomp (match-string 2 arg)))) (cons (intern 
(org-babel-chomp arg)) nil))) (":file (concat (sbe \"dir_informatix\") 
\"/boxplot-tarif-devis.png\")"))
  (delq nil (mapcar (function (lambda (arg) (if (string-match "\\([^ \f 
\n]+\\)[ \f    \n]+\\([^ \f   \n]+.*\\)" arg) (cons (intern (match-string 1 
arg)) (org-babel-read (org-babel-chomp ...))) (cons (intern (org-babel-chomp 
arg)) nil)))) (let ((raw (org-babel-balanced-split arg-string (quote (... . 
58))))) (cons (car raw) (mapcar (function (lambda (r) (concat ":" r))) (cdr 
raw))))))
  (org-babel-parse-multiple-vars (delq nil (mapcar (function (lambda (arg) (if 
(string-match "\\([^ \f  \n]+\\)[ \f    \n]+\\([^ \f   \n]+.*\\)" arg) (cons 
(intern ...) (org-babel-read ...)) (cons (intern ...) nil)))) (let ((raw 
(org-babel-balanced-split arg-string (quote ...)))) (cons (car raw) (mapcar 
(function (lambda ... ...)) (cdr raw)))))))
  (progn (org-babel-parse-multiple-vars (delq nil (mapcar (function (lambda 
(arg) (if (string-match "\\([^ \f   \n]+\\)[ \f    \n]+\\([^ \f   \n]+.*\\)" 
arg) (cons ... ...) (cons ... nil)))) (let ((raw (org-babel-balanced-split 
arg-string ...))) (cons (car raw) (mapcar (function ...) (cdr raw))))))))
  (if (> (length arg-string) 0) (progn (org-babel-parse-multiple-vars (delq nil 
(mapcar (function (lambda (arg) (if ... ... ...))) (let ((raw ...)) (cons (car 
raw) (mapcar ... ...))))))))
  org-babel-parse-header-arguments(#(":file (concat (sbe \"dir_informatix\") 
\"/boxplot-tarif-devis.png\")" 0 19 (fontified t font-lock-fontified t 
org-category "performance-tests" face org-meta-line) 19 20 (fontified t 
font-lock-fontified t face org-meta-line) 20 23 (fontified t 
font-lock-fontified t org-category "performance-tests" face org-meta-line) 23 
34 (fontified t font-lock-fontified t org-category "performance-tests" face 
org-meta-line font-lock-multiline t) 34 35 (fontified t font-lock-fontified t 
face org-meta-line) 35 64 (fontified t font-lock-fontified t org-category 
"performance-tests" face org-meta-line)))
  (org-babel-merge-params (nth 2 info) (org-babel-parse-header-arguments 
(match-string 1)))
  (setcar c (org-babel-merge-params (nth 2 info) 
(org-babel-parse-header-arguments (match-string 1))))
  (let* ((c (nthcdr 2 info))) (setcar c (org-babel-merge-params (nth 2 info) 
(org-babel-parse-header-arguments (match-string 1)))))
  (while (and (forward-line -1) (looking-at 
org-babel-multi-line-header-regexp)) (let* ((c (nthcdr 2 info))) (setcar c 
(org-babel-merge-params (nth 2 info) (org-babel-parse-header-arguments 
(match-string 1))))))
  (save-excursion (goto-char head) (setq info 
(org-babel-parse-src-block-match)) (setq indent (car (last info))) (setq info 
(butlast info)) (while (and (forward-line -1) (looking-at 
org-babel-multi-line-header-regexp)) (let* ((c (nthcdr 2 info))) (setcar c 
(org-babel-merge-params (nth 2 info) (org-babel-parse-header-arguments 
(match-string 1)))))) (if (looking-at org-babel-src-name-w-name-regexp) (progn 
(setq name (org-no-properties (match-string 3))))))
  (if (setq head (org-babel-where-is-src-block-head)) (save-excursion 
(goto-char head) (setq info (org-babel-parse-src-block-match)) (setq indent 
(car (last info))) (setq info (butlast info)) (while (and (forward-line -1) 
(looking-at org-babel-multi-line-header-regexp)) (let* ((c (nthcdr 2 info))) 
(setcar c (org-babel-merge-params (nth 2 info) 
(org-babel-parse-header-arguments (match-string 1)))))) (if (looking-at 
org-babel-src-name-w-name-regexp) (progn (setq name (org-no-properties 
(match-string 3)))))) (if (org-babel-get-inline-src-block-matches) (progn (setq 
info (org-babel-parse-inline-src-block-match)))))
  (let ((case-fold-search t) head info name indent) (if (setq head 
(org-babel-where-is-src-block-head)) (save-excursion (goto-char head) (setq 
info (org-babel-parse-src-block-match)) (setq indent (car (last info))) (setq 
info (butlast info)) (while (and (forward-line -1) (looking-at 
org-babel-multi-line-header-regexp)) (let* ((c (nthcdr 2 info))) (setcar c 
(org-babel-merge-params (nth 2 info) (org-babel-parse-header-arguments ...))))) 
(if (looking-at org-babel-src-name-w-name-regexp) (progn (setq name 
(org-no-properties (match-string 3)))))) (if 
(org-babel-get-inline-src-block-matches) (progn (setq info 
(org-babel-parse-inline-src-block-match))))) (if (and info (not light)) (progn 
(let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (nth 2 
info)))))) (if info (progn (append info (list name indent head)))))
  org-babel-get-src-block-info()
  (if info (copy-tree info) (org-babel-get-src-block-info))
  (let* ((org-babel-current-src-block-location (or 
org-babel-current-src-block-location (nth 6 info) 
(org-babel-where-is-src-block-head))) (info (if info (copy-tree info) 
(org-babel-get-src-block-info))) (merged-params (org-babel-merge-params (nth 2 
info) params))) (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 
2 i))) (setcar c merged-params)) i)) (progn (let* ((params (if params 
(org-babel-process-params merged-params) (nth 2 info))) (cachep (and (not arg) 
(cdr ...) (string= "yes" ...))) (new-hash (if cachep (progn ...))) (old-hash 
(if cachep (progn ...))) (cache-current-p (and (not arg) new-hash (equal 
new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char ...) 
(end-of-line 1) (forward-char 1) (let ... ... result))) 
((org-babel-confirm-evaluate (let ... ... i)) (let* (... ... ... ... ... ... 
... result cmd) (unwind-protect ... ...))))))))
  org-babel-execute-src-block(nil)
  (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block 
current-prefix-arg) t)
  (if (or (org-babel-where-is-src-block-head) 
(org-babel-get-inline-src-block-matches)) (progn 
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block 
current-prefix-arg) t) nil)
  org-babel-execute-src-block-maybe()
  (or (org-babel-execute-src-block-maybe) (org-babel-lob-execute-maybe))
  org-babel-execute-maybe()
  call-interactively(org-babel-execute-maybe nil nil)
  command-execute(org-babel-execute-maybe)
--8<---------------cut here---------------end--------------->8---

Org-mode version 8.2.3c (release_8.2.3c-252-gce9466 @ 
~/Public/Repositories/org-mode/lisp/)

Best regards,
  Seb

-- 
Sebastien Vauban