emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Error: (wrong-type-argument integer-or-marker-p nil)
@ 2013-11-29 15:16 Sebastien Vauban
  2013-11-29 17:46 ` Nicolas Goaziou
  0 siblings, 1 reply; 5+ messages in thread
From: Sebastien Vauban @ 2013-11-29 15:16 UTC (permalink / raw)
  To: emacs-orgmode-mXXj517/zsQ

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 \"$@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 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\v]+\\)[ \f	\n\v]+\\([^ \f	\n\v]+.*\\)" 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\v]+\\)[ \f	\n\v]+\\([^ \f	\n\v]+.*\\)" 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\v]+\\)[ \f	\n\v]+\\([^ \f	\n\v]+.*\\)" 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\v]+\\)[ \f	\n\v]+\\([^ \f	\n\v]+.*\\)" 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\v]+\\)[ \f	\n\v]+\\([^ \f	\n\v]+.*\\)" 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\v]+\\)[ \f	\n\v]+\\([^ \f	\n\v]+.*\\)" 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

^ permalink raw reply	[flat|nested] 5+ messages in thread

end of thread, other threads:[~2013-11-29 22:25 UTC | newest]

Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-11-29 15:16 Error: (wrong-type-argument integer-or-marker-p nil) Sebastien Vauban
2013-11-29 17:46 ` Nicolas Goaziou
2013-11-29 20:31   ` Sebastien Vauban
2013-11-29 22:21     ` Charles Berry
2013-11-29 22:25     ` Nicolas Goaziou

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).