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

* Re: Error: (wrong-type-argument integer-or-marker-p nil)
  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
  0 siblings, 1 reply; 5+ messages in thread
From: Nicolas Goaziou @ 2013-11-29 17:46 UTC (permalink / raw)
  To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ



Hello,

"Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:

> When trying to convert a document which contains R graphics, I get the error:
>
> 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))

Thank you for the report. Could you provide an ECM for it?


Regards,

-- 
Nicolas Goaziou

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

* Re: Error: (wrong-type-argument integer-or-marker-p nil)
  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
  0 siblings, 2 replies; 5+ messages in thread
From: Sebastien Vauban @ 2013-11-29 20:31 UTC (permalink / raw)
  To: emacs-orgmode-mXXj517/zsQ

Hello Nicolas,

Nicolas Goaziou wrote:
> "Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org> writes:
>
>> When trying to convert a document which contains R graphics, I get the error:
>>
>> 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))
>
> Thank you for the report.

Thank you for your prompt attitude, as always...

> Could you provide an ECM for it?

Not easy, no, as it now disappeared after an update to the latest version of
Org.

Now, to be honest, I've had very peculiar times with Org for the last week,
when working on a document full of R code, and converting it (mainly graphics)
to Beamer slides. Here a couple of problems:

- PDF said as updated, but in fact not regenerated; [1]

- PDF missing some sections (= some Beamer slides) while those headlines had to
  be exported; sometimes, I passed through a LaTeX file to generate my slides
  with AUCTeX...

Now, I know these descriptions are very inaccurate, no ECM to support my
sayings. But I was really under pressure, and could not get the same
reproducible problem twice in a row (that's what, in fact, does make me
afraid!).

I hope to get more stable results, or problems, in the future, and to be able
to report them with the needed details.

Best regards,
  Seb

[1] Francesco Pizzolante had initiated a thread about that, btw. See
    http://lists.gnu.org/archive/html/emacs-orgmode/2013-10/msg00347.html. I
    think his proposition of a catch-all errors would make a lot of sense, and
    suppress false impressions of correct behavior -- help the user be aware of
    problems as soon as they happen.

-- 
Sebastien Vauban

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

* Re: Error: (wrong-type-argument integer-or-marker-p nil)
  2013-11-29 20:31   ` Sebastien Vauban
@ 2013-11-29 22:21     ` Charles Berry
  2013-11-29 22:25     ` Nicolas Goaziou
  1 sibling, 0 replies; 5+ messages in thread
From: Charles Berry @ 2013-11-29 22:21 UTC (permalink / raw)
  To: emacs-orgmode

Sebastien Vauban <sva-news@...> writes:

> 
> Hello Nicolas,
> 
> Nicolas Goaziou wrote:
> > "Sebastien Vauban" <sva-news@...> writes:
> >
> >> When trying to convert a document which contains R graphics, I get the
error:
> >>
> >> 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))
> >
> > Thank you for the report.
> 
> Thank you for your prompt attitude, as always...
> 
> > Could you provide an ECM for it?
> 
> Not easy, no, as it now disappeared after an update to the latest version
> of Org.
> 
[rest deleted]

There was a problem with org-element-cache-* that Nicolas just fixed 
recently that was generating issues that seem to me could be causing
what you reported.

See

http://thread.gmane.org/gmane.emacs.orgmode/79160/focus=79377


If you do pursue this, you might try turning off the caching to see
if the problems you mention goes away. Or just do

  M-: (org-element-cache-reset) RET

before each export.

HTH,

Chuck

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

* Re: Error: (wrong-type-argument integer-or-marker-p nil)
  2013-11-29 20:31   ` Sebastien Vauban
  2013-11-29 22:21     ` Charles Berry
@ 2013-11-29 22:25     ` Nicolas Goaziou
  1 sibling, 0 replies; 5+ messages in thread
From: Nicolas Goaziou @ 2013-11-29 22:25 UTC (permalink / raw)
  To: Sebastien Vauban; +Cc: public-emacs-orgmode-mXXj517/zsQ



"Sebastien Vauban" <sva-news-D0wtAvR13HarG/iDocfnWg@public.gmane.org>
writes:

> Now, I know these descriptions are very inaccurate, no ECM to support my
> sayings. But I was really under pressure, and could not get the same
> reproducible problem twice in a row (that's what, in fact, does make me
> afraid!).

It's probably due to cache. In this case, set `org-element-use-cache' to
nil and try again. If the problem goes away, you get the culprit.

Anyway, I fixed a bad bug related to export and cache yesterday. I think
that most (hopefully all) of your problems were related to it.


Regards,

-- 
Nicolas Goaziou

^ 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).