[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[O] Error: (wrong-type-argument integer-or-marker-p nil)
From: |
Sebastien Vauban |
Subject: |
[O] Error: (wrong-type-argument integer-or-marker-p nil) |
Date: |
Fri, 29 Nov 2013 16:16:38 +0100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.3.50 (windows-nt) |
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
- [O] Error: (wrong-type-argument integer-or-marker-p nil),
Sebastien Vauban <=