From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Sebastien Vauban" Subject: Error: (wrong-type-argument integer-or-marker-p nil) Date: Fri, 29 Nov 2013 16:16:38 +0100 Message-ID: <86txevjl0p.fsf@somewhere.org> Mime-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org Hello, When trying to convert a document which contains R graphics, I get the erro= r: --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 " ")) e= nd (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-en= d (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 typ= e (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))) ((=3D (aref raw-link 0) 35) (setq type "custom-i= d" 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-propertie= s 0) type (org-match-string-no-properties 1) link-end (match-end 0) path (o= rg-match-string-no-properties 2))) ((looking-at org-angle-link-re) (setq ra= w-link (buffer-substring-no-properties (match-beginning 1) (match-end 2)) t= ype (org-match-string-no-properties 1) link-end (match-end 0) path (org-mat= ch-string-no-properties 2)))) (setq post-blank (progn (goto-char link-end) = (skip-chars-forward " ")) end (point)) (if (member type org-element-link-t= ype-is-file) (progn (cond ((string-match "^file\\+\\(.*\\)$" type) (setq ap= plication (match-string 1 type))) ((not (string-match "^file" type)) (setq = application type))) (if (string-match "::\\(.*\\)$" path) (progn (setq sear= ch-option (match-string 1 path) path (replace-match "" nil nil path)))) (se= tq type "file"))) (list (quote link) (list :type type :path path :raw-link = (or raw-link path) :application application :search-option search-option :b= egin begin :end end :contents-begin contents-begin :contents-end contents-e= nd :post-blank post-blank))) (save-excursion (let ((begin (point)) end contents-begin contents-end lin= k-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-translat= e-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 (mat= ch-string 1 raw-link))) ((string-match "^(\\(.*\\))$" raw-link) (setq type = "coderef" path (match-string 1 raw-link))) ((=3D (aref raw-link 0) 35) (set= q 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-str= ing-no-properties 0) type (org-match-string-no-properties 1) link-end (matc= h-end 0) path (org-match-string-no-properties 2))) ((looking-at org-angle-l= ink-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 or= g-element-link-type-is-file) (progn (cond ((string-match "^file\\+\\(.*\\)$= " type) (setq application (match-string 1 type))) ((not (string-match "^fil= e" 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 :content= s-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) (pro= gn (let ((--dolist-tail-- (cddr objects-data)) obj) (while --dolist-tail-- = (setq obj (car --dolist-tail--)) (if (<=3D (org-element-property :begin obj= ) origin) (progn (if ... ... ...))) (setq --dolist-tail-- (cdr --dolist-tai= l--))) (setq obj nil) (throw (quote exit) parent)))) (goto-char (cdr closes= t)) (setq next (funcall (intern (format "org-element-%s-parser" (car closes= t))))) (if org-element-use-cache (progn (let* ((v objects-data)) (setcdr (c= dr v) (cons next (cddr v)))) (or update-cache-flag (setq update-cache-flag = t))))) (let ((closest (and candidates (rassq (apply (function min) (mapcar (func= tion 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 (<= =3D ... origin) (progn ...)) (setq --dolist-tail-- (cdr --dolist-tail--))) = (setq obj nil) (throw (quote exit) parent)))) (goto-char (cdr closest)) (se= tq 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 (a= ssq (point) cache))) (if data (setq candidates (nth 1 (setq objects-data da= ta))) (setq cache (cons (setq objects-data ...) cache)))))) (if (or next (e= q (quote initial) candidates)) (progn (setq candidates (org-element--get-ne= xt-object-candidates restriction candidates)) (if org-element-use-cache (pr= ogn (setcar (cdr objects-data) candidates) (or update-cache-flag (setq upda= te-cache-flag t)))))) (let ((closest (and candidates (rassq (apply (functio= n min) (mapcar ... candidates)) candidates)))) (if (or (not closest) (> (cd= r closest) origin)) (catch (quote found) (progn (let ((--dolist-tail-- ...)= obj) (while --dolist-tail-- (setq obj ...) (if ... ...) (setq --dolist-tai= l-- ...)) (setq obj nil) (throw (quote exit) parent)))) (goto-char (cdr clo= sest)) (setq next (funcall (intern (format "org-element-%s-parser" (car clo= sest))))) (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-e= lement-property :contents-end next)) (obj-end (org-element-property :end ne= xt))) (cond ((<=3D obj-end origin) (goto-char obj-end)) ((or (not cbeg) (< = origin cbeg) (>=3D origin cend)) (throw (quote exit) (org-element-put-prope= rty next :parent parent))) (t (goto-char cbeg) (narrow-to-region (point) ce= nd) (org-element-put-property next :parent parent) (setq parent next restri= ction (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) candida= tes)) (progn (setq candidates (org-element--get-next-object-candidates rest= riction candidates)) (if org-element-use-cache (progn (setcar (cdr objects-= data) candidates) (or update-cache-flag (setq update-cache-flag t)))))) (le= t ((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-ele= ment-%s-parser" ...)))) (if org-element-use-cache (progn (let* (...) (setcd= r ... ...)) (or update-cache-flag (setq update-cache-flag t)))))) (let ((cb= eg (org-element-property :contents-begin next)) (cend (org-element-property= :contents-end next)) (obj-end (org-element-property :end next))) (cond ((<= =3D obj-end origin) (goto-char obj-end)) ((or (not cbeg) (< origin cbeg) (>= =3D origin cend)) (throw (quote exit) (org-element-put-property next :paren= t parent))) (t (goto-char cbeg) (narrow-to-region (point) cend) (org-elemen= t-put-property next :parent parent) (setq parent next restriction (org-elem= ent-restriction next) next nil objects-data nil candidates (quote initial))= ))))) (prog1 (catch (quote exit) (while t (if (and (not next) org-element-use-c= ache) (progn (let ((data ...)) (if data (setq candidates ...) (setq cache .= ..))))) (if (or next (eq (quote initial) candidates)) (progn (setq candidat= es (org-element--get-next-object-candidates restriction candidates)) (if or= g-element-use-cache (progn (setcar ... candidates) (or update-cache-flag ..= .))))) (let ((closest (and candidates (rassq ... candidates)))) (if (or (no= t 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-ele= ment-property :contents-end next)) (obj-end (org-element-property :end next= ))) (cond ((<=3D obj-end origin) (goto-char obj-end)) ((or (not cbeg) (< or= igin cbeg) (>=3D origin cend)) (throw (quote exit) (org-element-put-propert= y next :parent parent))) (t (goto-char cbeg) (narrow-to-region (point) cend= ) (org-element-put-property next :parent parent) (setq parent next restrict= ion (org-element-restriction next) next nil objects-data nil candidates (qu= ote initial))))))) (if (and update-cache-flag (derived-mode-p (quote org-mo= de))) (progn (org-element-cache-put cache-key (cons element cache))))) (let* ((restriction (org-element-restriction type)) (parent element) (can= didates (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 closes= t) (> ... origin)) (catch (quote found) (progn ...)) (goto-char (cdr closes= t)) (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 ((<=3D 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 ob= jects-data nil candidates ...)))))) (if (and update-cache-flag (derived-mod= e-p (quote org-mode))) (progn (org-element-cache-put cache-key (cons elemen= t cache)))))) (let* ((origin (point)) (element (or element (org-element-at-point))) (ty= pe (org-element-type element))) (cond ((let ((post (org-element-property :p= ost-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)) (th= row (quote objects-forbidden) element)) ((< (match-end 0) origin) (narrow-t= o-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= =3D origin (match-beginning 2)) (< origin (match-end 2))) (narrow-to-region= (match-beginning 2) (match-end 2))) (t (throw (quote objects-forbidden) el= ement))) (setq type (quote keyword))) ((eq type (quote item)) (let ((tag (o= rg-element-property :tag element))) (if (not tag) (throw (quote objects-for= bidden) element) (beginning-of-line) (search-forward tag (line-end-position= )) (goto-char (match-beginning 0)) (if (and (>=3D origin ...) (< origin ...= )) (narrow-to-region (point) (match-end 0)) (throw (quote objects-forbidden= ) element))))) ((memq type (quote (headline inlinetask))) (goto-char (org-e= lement-property :begin element)) (skip-chars-forward "* ") (if (and (>=3D o= rigin (point)) (< origin (line-end-position))) (narrow-to-region (point) (l= ine-end-position)) (throw (quote objects-forbidden) element))) ((memq type = (quote (paragraph table-row verse-block))) (let ((cbeg (org-element-propert= y :contents-begin element)) (cend (org-element-property :contents-end eleme= nt))) (if (and cbeg cend (>=3D origin cbeg) (< origin cend)) (narrow-to-reg= ion cbeg cend) (throw (quote objects-forbidden) element)))) ((eq type (quot= e keyword)) (if (not (member (org-element-property :key element) org-elemen= t-document-properties)) (throw (quote objects-forbidden) element) (beginnin= g-of-line) (search-forward ":") (if (and (>=3D origin (point)) (< origin (l= ine-end-position))) (narrow-to-region (point) (line-end-position)) (throw (= quote objects-forbidden) element)))) (t (throw (quote objects-forbidden) el= ement))) (goto-char (point-min)) (let* ((restriction (org-element-restricti= on type)) (parent element) (candidates (quote initial)) (cache-key (org-ele= ment--cache-get-key element)) (cache (org-element-cache-get cache-key (quot= e 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-el= ement-use-cache ...))) (let ((closest ...)) (if (or ... ...) (catch ... ...= ) (goto-char ...) (setq next ...) (if org-element-use-cache ...))) (let ((c= beg ...) (cend ...) (obj-end ...)) (cond (... ...) (... ...) (t ... ... ...= ...))))) (if (and update-cache-flag (derived-mode-p (quote org-mode))) (pr= ogn (org-element-cache-put cache-key (cons element cache))))))) (save-restriction (widen) (let* ((origin (point)) (element (or element (o= rg-element-at-point))) (type (org-element-type element))) (cond ((let ((pos= t (org-element-property :post-affiliated element))) (and post (< origin pos= t))) (beginning-of-line) (let ((case-fold-search t)) (looking-at org-elemen= t--affiliated-re)) (cond ((not (member-ignore-case ... org-element-parsed-k= eywords)) (throw (quote objects-forbidden) element)) ((< (match-end 0) orig= in) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-begi= nning 2) (>=3D origin ...) (< origin ...)) (narrow-to-region (match-beginni= ng 2) (match-end 2))) (t (throw (quote objects-forbidden) element))) (setq = type (quote keyword))) ((eq type (quote item)) (let ((tag (org-element-prop= erty :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-el= ement-property :begin element)) (skip-chars-forward "* ") (if (and (>=3D or= igin (point)) (< origin (line-end-position))) (narrow-to-region (point) (li= ne-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 elemen= t))) (if (and cbeg cend (>=3D origin cbeg) (< origin cend)) (narrow-to-regi= on 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 (>=3D origin ...) (< origin ...)) (= narrow-to-region (point) (line-end-position)) (throw (quote objects-forbidd= en) element)))) (t (throw (quote objects-forbidden) element))) (goto-char (= point-min)) (let* ((restriction (org-element-restriction type)) (parent ele= ment) (candidates (quote initial)) (cache-key (org-element--cache-get-key e= lement)) (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)) (elemen= t (or element (org-element-at-point))) (type (org-element-type element))) (= cond ((let ((post ...)) (and post (< origin post))) (beginning-of-line) (le= t ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((n= ot ...) (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 t= ag) (throw ... element) (beginning-of-line) (search-forward tag ...) (goto-= char ...) (if ... ... ...)))) ((memq type (quote (headline inlinetask))) (g= oto-char (org-element-property :begin element)) (skip-chars-forward "* ") (= if (and (>=3D origin ...) (< origin ...)) (narrow-to-region (point) (line-e= nd-position)) (throw (quote objects-forbidden) element))) ((memq type (quot= e (paragraph table-row verse-block))) (let ((cbeg ...) (cend ...)) (if (and= cbeg cend ... ...) (narrow-to-region cbeg cend) (throw ... element)))) ((e= q type (quote keyword)) (if (not (member ... org-element-document-propertie= s)) (throw (quote objects-forbidden) element) (beginning-of-line) (search-f= orward ":") (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) (cand= idates (quote initial)) (cache-key (org-element--cache-get-key element)) (c= ache (org-element-cache-get cache-key (quote objects))) objects-data next u= pdate-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))) (ty= pe (org-element-type element))) (cond ((let (...) (and post ...)) (beginnin= g-of-line) (let (...) (looking-at org-element--affiliated-re)) (cond (... .= ..) (... ...) (... ...) (t ...)) (setq type (quote keyword))) ((eq type (qu= ote item)) (let (...) (if ... ... ... ... ... ...))) ((memq type (quote ...= )) (goto-char (org-element-property :begin element)) (skip-chars-forward "*= ") (if (and ... ...) (narrow-to-region ... ...) (throw ... element))) ((me= mq type (quote ...)) (let (... ...) (if ... ... ...))) ((eq type (quote key= word)) (if (not ...) (throw ... element) (beginning-of-line) (search-forwar= d ":") (if ... ... ...))) (t (throw (quote objects-forbidden) element))) (g= oto-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-da= ta 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 (or= g-element-context)) (set-match-data save-match-data-internal (quote evapora= te)))) (let ((link (let ((save-match-data-internal (match-data))) (unwind-protec= t (progn (org-element-context)) (set-match-data save-match-data-internal (q= uote evaporate)))))) (if (and (equal (org-element-property :type link) "fil= e") (or include-linked (not (org-element-property :contents-begin link))) (= let ((parent (org-element-property :parent link))) (or (not (eq (org-elemen= t-type parent) (quote link))) (not (cdr (org-element-contents parent))))) (= org-string-match-p file-extension-re (org-element-property :path link))) (p= rogn (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 ((lin= k (let ((save-match-data-internal (match-data))) (unwind-protect (progn (or= g-element-context)) (set-match-data save-match-data-internal (quote evapora= te)))))) (if (and (equal (org-element-property :type link) "file") (or incl= ude-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) (p= rogn (let ... ...)))))))) (let ((case-fold-search t) (file-extension-re (org-image-file-name-regexp= ))) (while (re-search-forward "[][]\\[\\(?:file\\|[./~]\\)" end t) (let ((l= ink (let ((save-match-data-internal ...)) (unwind-protect (progn ...) (set-= match-data save-match-data-internal ...))))) (if (and (equal (org-element-p= roperty :type link) "file") (or include-linked (not (org-element-property := contents-begin link))) (let ((parent ...)) (or (not ...) (not ...))) (org-s= tring-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-fo= ld-search t) (file-extension-re (org-image-file-name-regexp))) (while (re-s= earch-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-strin= g-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 ((l= ink (let ... ...))) (if (and (equal ... "file") (or include-linked ...) (le= t ... ...) (org-string-match-p file-extension-re ...)) (progn (let ... ...)= ))))))) (progn (if refresh nil (org-remove-inline-images) (if (fboundp (quote cle= ar-image-cache)) (progn (clear-image-cache)))) (save-excursion (save-restri= ction (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)))) (sav= e-excursion (save-restriction (widen) (goto-char (or beg (point-min))) (let= ((case-fold-search t) (file-extension-re (org-image-file-name-regexp))) (w= hile (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 o= rg-babel-tramp-handle-call-process-region) args))))) (let ((lang-check (fun= ction (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 resu= lt (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-re= solve (cdr ...))) (if (cdr (assoc :file params)) (progn (setq result-params= ...)))))) (org-babel-insert-result result result-params info new-hash inde= nt 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 or= g-babel-execute function for %s!" lang)))) (message "executing %s code bloc= k%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) ""= )) (if (member "none" result-params) (progn (funcall cmd body params) (mess= age "result silenced") (setq result nil)) (setq result (let ((result (funca= ll cmd body params))) (if (and (eq ... ...) (or ... ...) (not ...)) (list (= list result)) result))) (if (cdr (assoc :file params)) (progn (if result (p= rogn (let ... ...))) (setq result (cdr (assoc :file params))))) (if (cdr (a= ssoc :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-afte= r-execute-hook)) result) (setq call-process-region (quote org-babel-call-pr= ocess-region-original))) (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-params para= ms))) (body (let* ((c (nthcdr 1 info))) (setcar c (if (org-babel-noweb-p pa= rams :eval) (org-babel-expand-noweb-references info) (nth 1 info))))) (dir = (cdr (assoc :dir params))) (default-directory (or (and dir (file-name-as-di= rectory (expand-file-name dir))) default-directory)) (org-babel-call-proces= s-region-original (or (and (boundp (quote org-babel-call-process-region-ori= ginal)) org-babel-call-process-region-original) (symbol-function (quote cal= l-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-ex= ecute function for %s!" lang)))) (message "executing %s code block%s..." (c= apitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) "")) (if (me= mber "none" result-params) (progn (funcall cmd body params) (message "resul= t 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-res= ult result result-params info new-hash indent lang)) (run-hooks (quote org-= babel-after-execute-hook)) result) (setq call-process-region (quote org-bab= el-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 (or= g-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-dir= ectory (or (and dir (file-name-as-directory ...)) default-directory)) (org-= babel-call-process-region-original (or (and (boundp ...) org-babel-call-pro= cess-region-original) (symbol-function (quote call-process-region)))) (inde= nt (nth 5 info)) result cmd) (unwind-protect (let ((call-process-region (fu= nction ...))) (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 bod= y params) (message "result silenced") (setq result nil)) (setq result (let = ... ...)) (if (cdr ...) (progn ... ...)) (if (cdr ...) (progn ...)) (org-ba= bel-insert-result result result-params info new-hash indent lang)) (run-hoo= ks (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=3D "yes= " (cdr (assoc :cache params))))) (new-hash (if cachep (progn (org-babel-sha= 1-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-bl= ock-result nil info)) (end-of-line 1) (forward-char 1) (let ((result (org-b= abel-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-pa= rams (cdr (assoc :result-params params))) (body (let* (...) (setcar c ...))= ) (dir (cdr (assoc :dir params))) (default-directory (or (and dir ...) defa= ult-directory)) (org-babel-call-process-region-original (or (and ... org-ba= bel-call-process-region-original) (symbol-function ...))) (indent (nth 5 in= fo)) 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 ... ... ...) (se= tq result ...) (if ... ...) (if ... ...) (org-babel-insert-result result re= sult-params info new-hash indent lang)) (run-hooks (quote org-babel-after-e= xecute-hook)) result) (setq call-process-region (quote org-babel-call-proce= ss-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= =3D "yes" (cdr (assoc :cache params))))) (new-hash (if cachep (progn (org-b= abel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-current-resu= lt-hash)))) (cache-current-p (and (not arg) new-hash (equal new-hash old-ha= sh)))) (cond (cache-current-p (save-excursion (goto-char (org-babel-where-i= s-src-block-result nil info)) (end-of-line 1) (forward-char 1) (let ((resul= t ...)) (message (replace-regexp-in-string "%" "%%" ...)) result))) ((org-b= abel-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-ba= bel-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))) (s= etcar c merged-params)) i)) (progn (let* ((params (if params (org-babel-pro= cess-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr (asso= c :cache params)) (string=3D "yes" (cdr ...)))) (new-hash (if cachep (progn= (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-curre= nt-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 ...) (d= efault-directory ...) (org-babel-call-process-region-original ...) (indent = ...) result cmd) (unwind-protect (let ... ... ... ... ... result) (setq cal= l-process-region ...)))))))) (let* ((org-babel-current-src-block-location (or org-babel-current-src-bl= ock-location (nth 6 info) (org-babel-where-is-src-block-head))) (info (if i= nfo (copy-tree info) (org-babel-get-src-block-info))) (merged-params (org-b= abel-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 in= fo))) (cachep (and (not arg) (cdr ...) (string=3D "yes" ...))) (new-hash (i= f 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= =3Ddir_informatix[]()"))) ((:results . "silent"))) (let ((params (eval (list (quote org-babel-parse-header-arguments) (cons = (quote concat) (cons ":var results=3D" (cons source-block ...))))))) (org-b= abel-execute-src-block nil (list "emacs-lisp" "results" params) (quote ((:r= esults . "silent"))))) (if (and source-block (> (length source-block) 0)) (let ((params (eval (l= ist (quote org-babel-parse-header-arguments) (cons (quote concat) (cons ":v= ar results=3D" ...)))))) (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 ((p= arams (eval ...))) (org-babel-execute-src-block nil (list "emacs-lisp" "res= ults" params) (quote (...)))) ""))) (org-babel-trim (if (stringp result) re= sult (format "%S" result)))) (let* (quote (variables (mapcar (function (lambda (var) (cons (car var) (= delq nil ...)))) variables))) (if (stringp source-block) nil (setq source-b= lock (symbol-name source-block))) (let ((result (if (and source-block (> (l= ength source-block) 0)) (let ((params ...)) (org-babel-execute-src-block ni= l (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) "")) (v= ariables (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-b= lock))) (let ((result (if (and source-block (> ... 0)) (let (...) (org-babe= l-execute-src-block nil ... ...)) ""))) (org-babel-trim (if (stringp result= ) result (format "%S" result)))))) (lambda (source-block &rest variables) "Return the results of calling SOU= RCE-BLOCK with VARIABLES.\nEach element of VARIABLES should be a two\neleme= nt list, whose first element is the name of the variable and\nsecond elemen= t is a string of its value. The following call to\n`sbe' would be equivale= nt to the following source code block.\n\n (sbe 'source-block (n $2) (m 3))= \n\n#+begin_src emacs-lisp :var results=3Dsource-block(n=3Dval_at_col_2, m= =3D3) :results silent\nresults\n#+end_src\n\nNOTE: by default string variab= le names are interpreted as\nreferences to source-code blocks, to force int= erpretation of a\ncell's value as a string, prefix the identifier a \"$\" (= e.g.,\n\"$$2\" instead of \"$2\" or \"$@2$2\" 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 whi= ch 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=3D'(sbe test-= sbe $3 (x $1) (y $2))" (let* ((header-args (if (stringp (car variables)) (c= ar variables) "")) (variables (if (stringp (car variables)) (cdr variables)= variables))) (let* (quote (variables (mapcar (function (lambda ... ...)) v= ariables))) (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)))))))("d= ir_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=3D cell "*this*"))) (eval (read cell)) (if (str= ing=3D (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 (membe= r (substring cell 0 1) (quote ("(" "'" "`" "["))) (string=3D cell "*this*")= )) (eval (read cell)) (if (string=3D (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 ce= ll) (if (and (not inhibit-lisp-eval) (or (member (substring cell 0 1) (quot= e ("(" "'" "`" "["))) (string=3D cell "*this*"))) (eval (read cell)) (if (s= tring=3D (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.p= ng\")") (cons (intern (match-string 1 arg)) (org-babel-read (org-babel-chomp (mat= ch-string 2 arg)))) (if (string-match "\\([^ \f \n=0B]+\\)[ \f \n=0B]+\\([^ \f \n=0B]+.*\\)" = 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=0B]+\\)[ \f \n=0B]+\\([^ \f = \n=0B]+.*\\)" arg) (cons (intern (match-string 1 arg)) (org-babel-read (org= -babel-chomp (match-string 2 arg)))) (cons (intern (org-babel-chomp arg)) n= il)))(":file (concat (sbe \"dir_informatix\") \"/boxplot-tarif-devis.png\")= ") mapcar((lambda (arg) (if (string-match "\\([^ \f \n=0B]+\\)[ \f \n=0B]+\\= ([^ \f \n=0B]+.*\\)" arg) (cons (intern (match-string 1 arg)) (org-babel-re= ad (org-babel-chomp (match-string 2 arg)))) (cons (intern (org-babel-chomp = arg)) nil))) (":file (concat (sbe \"dir_informatix\") \"/boxplot-tarif-devi= s.png\")")) (delq nil (mapcar (function (lambda (arg) (if (string-match "\\([^ \f \n= =0B]+\\)[ \f \n=0B]+\\([^ \f \n=0B]+.*\\)" arg) (cons (intern (match-string= 1 arg)) (org-babel-read (org-babel-chomp ...))) (cons (intern (org-babel-c= homp 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=0B]+\\)[ \f \n=0B]+\\([^ \f \n=0B]+.*\\)" ar= g) (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=0B]+\\)[ \f \n=0B]+\\([^ \f \n=0B]+.*= \\)" arg) (cons ... ...) (cons ... nil)))) (let ((raw (org-babel-balanced-s= plit 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 ...)) (c= ons (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 or= g-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 f= ont-lock-multiline t) 34 35 (fontified t font-lock-fontified t face org-met= a-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 (m= atch-string 1))) (setcar c (org-babel-merge-params (nth 2 info) (org-babel-parse-header-ar= guments (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-reg= exp)) (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-ma= tch)) (setq indent (car (last info))) (setq info (butlast info)) (while (an= d (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-b= abel-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) (lo= oking-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-argum= ents (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-sr= c-block-match))))) (let ((case-fold-search t) head info name indent) (if (setq head (org-bab= el-where-is-src-block-head)) (save-excursion (goto-char head) (setq info (o= rg-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 (lookin= g-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-par= ams (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-bl= ock-location (nth 6 info) (org-babel-where-is-src-block-head))) (info (if i= nfo (copy-tree info) (org-babel-get-src-block-info))) (merged-params (org-b= abel-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 in= fo))) (cachep (and (not arg) (cdr ...) (string=3D "yes" ...))) (new-hash (i= f 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 cu= rrent-prefix-arg) t) (if (or (org-babel-where-is-src-block-head) (org-babel-get-inline-src-blo= ck-matches)) (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-s= rc-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 --=20 Sebastien Vauban