From: Kodi Arfer <kodi@arfer.net>
To: emacs-orgmode@gnu.org
Subject: Error when using :session :colnames yes :results graphics on an R code block
Date: Wed, 28 Dec 2016 10:46:09 -0800 [thread overview]
Message-ID: <225a369e-d62f-8dec-a276-8e02a8685994@arfer.net> (raw)
If I run Emacs with
emacs -Q --eval '(progn (add-to-list (quote load-path)
"/home/hippo/.emacs.d/elpa/org-20161224") (add-to-list (quote load-path)
"/home/hippo/.emacs.d/elpa/ess-20161223.108/lisp") (require (quote
ess-site)))'
, open an Org file containing
#+BEGIN_SRC R :session :file /tmp/foo.png :results graphics
:colnames yes
library(ggplot2)
qplot(c(1, 2, 3), c(2, 4, 9))
#+END_SRC
#+RESULTS:
[[file:/tmp/foo.png]]
, add R to org-babel-load-languages, and hit C-c C-c on the
code block, I get the error:
cons: Wrong type argument: listp, "x
1"
If I remove ":colnames yes", the error doesn't happen and the
file is produced as expected.
The full backtrace is:
org-babel-R-process-value-result("x\n1" t)
org-babel-R-evaluate-session("*R*" "png(filename=\"/tmp/foo.png\");
tryCatch({\nlibrary(ggplot2)\nqplot(c(1, 2, 3), c(2, 4,
9))\n},error=function(e){plot(x=-1:1, y=-1:1, type='n', xlab='',
ylab='', axes=FALSE); text(x=0, y=0, labels=e$message, col='red');
paste('ERROR', e$message, sep=' : ')}); dev.off()" value ("file"
"graphics" "replace") t nil)
org-babel-R-evaluate("*R*" "png(filename=\"/tmp/foo.png\");
tryCatch({\nlibrary(ggplot2)\nqplot(c(1, 2, 3), c(2, 4,
9))\n},error=function(e){plot(x=-1:1, y=-1:1, type='n', xlab='',
ylab='', axes=FALSE); text(x=0, y=0, labels=e$message, col='red');
paste('ERROR', e$message, sep=' : ')}); dev.off()" value ("file"
"graphics" "replace") t nil)
org-babel-execute:R("library(ggplot2)\nqplot(c(1, 2, 3), c(2, 4,
9))" ((:colname-names) (:rowname-names) (:result-params "file"
"graphics" "replace") (:result-type . value) (:results . "file graphics
replace") (:exports . "code") (:cache . "no") (:noweb . "no") (:hlines .
"no") (:tangle . "no") (:session) (:file . "/tmp/foo.png") (:colnames .
"yes")))
funcall(org-babel-execute:R "library(ggplot2)\nqplot(c(1, 2, 3),
c(2, 4, 9))" ((:colname-names) (:rowname-names) (:result-params "file"
"graphics" "replace") (:result-type . value) (:results . "file graphics
replace") (:exports . "code") (:cache . "no") (:noweb . "no") (:hlines .
"no") (:tangle . "no") (:session) (:file . "/tmp/foo.png") (:colnames .
"yes")))
(let ((r (funcall cmd body params))) (if (and (eq (cdr (assq
:result-type params)) (quote value)) (or (member "vector" result-params)
(member "table" result-params)) (not (listp r))) (list (list r)) r))
(setq result (let ((r (funcall cmd body params))) (if (and (eq (cdr
(assq :result-type params)) (quote value)) (or (member "vector"
result-params) (member "table" result-params)) (not (listp r))) (list
(list r)) r)))
(if (member "none" result-params) (progn (funcall cmd body params)
(message "result silenced")) (setq result (let ((r (funcall cmd body
params))) (if (and (eq (cdr (assq :result-type params)) (quote value))
(or (member "vector" result-params) (member "table" result-params)) (not
(listp r))) (list (list r)) r))) (let ((file (cdr (assq :file params))))
(if file (progn (if result (progn (let (... ...) (unwind-protect ...
...)))) (setq result file))) (let ((post (cdr (assq :post params)))) (if
post (progn (let ((*this* ...)) (setq result (org-babel-ref-resolve
post)) (if file (progn ...)))))) (org-babel-insert-result result
result-params info new-hash lang)))
(let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params
params))) (body (let ((coderef (nth 6 info)) (expand (if
(org-babel-noweb-p params :eval) (org-babel-expand-noweb-references
info) (nth 1 info)))) (if (not coderef) expand (replace-regexp-in-string
(org-src-coderef-regexp coderef) "" expand nil nil 1)))) (dir (cdr (assq
:dir params))) (default-directory (or (and dir (file-name-as-directory
(expand-file-name dir))) default-directory)) (cmd (intern (concat
"org-babel-execute:" lang))) result) (if (fboundp cmd) nil (error "No
org-babel-execute function for %s!" lang)) (message "executing %s code
block%s..." (capitalize lang) (let ((name (nth 4 info))) (if name
(format " (%s)" name) ""))) (if (member "none" result-params) (progn
(funcall cmd body params) (message "result silenced")) (setq result (let
((r (funcall cmd body params))) (if (and (eq (cdr ...) (quote value))
(or (member "vector" result-params) (member "table" result-params)) (not
(listp r))) (list (list r)) r))) (let ((file (cdr (assq :file params))))
(if file (progn (if result (progn (let ... ...))) (setq result file)))
(let ((post (cdr (assq :post params)))) (if post (progn (let (...) (setq
result ...) (if file ...))))) (org-babel-insert-result result
result-params info new-hash lang))) (run-hooks (quote
org-babel-after-execute-hook)) result)
(cond (current-cache (save-excursion (goto-char
(org-babel-where-is-src-block-result nil info)) (forward-line)
(skip-chars-forward " ") (let ((result (org-babel-read-result)))
(message (replace-regexp-in-string "%" "%%" (format "%S" result)))
result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info))
(result-params (cdr (assq :result-params params))) (body (let ((coderef
...) (expand ...)) (if (not coderef) expand (replace-regexp-in-string
... "" expand nil nil 1)))) (dir (cdr (assq :dir params)))
(default-directory (or (and dir (file-name-as-directory ...))
default-directory)) (cmd (intern (concat "org-babel-execute:" lang)))
result) (if (fboundp cmd) nil (error "No org-babel-execute function for
%s!" lang)) (message "executing %s code block%s..." (capitalize lang)
(let ((name (nth 4 info))) (if name (format " (%s)" name) ""))) (if
(member "none" result-params) (progn (funcall cmd body params) (message
"result silenced")) (setq result (let ((r ...)) (if (and ... ... ...)
(list ...) r))) (let ((file (cdr ...))) (if file (progn (if result ...)
(setq result file))) (let ((post ...)) (if post (progn ...)))
(org-babel-insert-result result result-params info new-hash lang)))
(run-hooks (quote org-babel-after-execute-hook)) result)))
(let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache
params)))) (and (not arg) c (string= "yes" c)))) (new-hash (and cache
(org-babel-sha1-hash info))) (old-hash (and cache
(org-babel-current-result-hash))) (current-cache (and new-hash (equal
new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char
(org-babel-where-is-src-block-result nil info)) (forward-line)
(skip-chars-forward " ") (let ((result (org-babel-read-result)))
(message (replace-regexp-in-string "%" "%%" (format "%S" result)))
result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info))
(result-params (cdr (assq :result-params params))) (body (let (... ...)
(if ... expand ...))) (dir (cdr (assq :dir params))) (default-directory
(or (and dir ...) default-directory)) (cmd (intern (concat
"org-babel-execute:" lang))) result) (if (fboundp cmd) nil (error "No
org-babel-execute function for %s!" lang)) (message "executing %s code
block%s..." (capitalize lang) (let ((name ...)) (if name (format " (%s)"
name) ""))) (if (member "none" result-params) (progn (funcall cmd body
params) (message "result silenced")) (setq result (let (...) (if ... ...
r))) (let ((file ...)) (if file (progn ... ...)) (let (...) (if post
...)) (org-babel-insert-result result result-params info new-hash
lang))) (run-hooks (quote org-babel-after-execute-hook)) result))))
(progn (let* ((c (nthcdr 2 info))) (setcar c
(org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (cache
(let ((c (cdr ...))) (and (not arg) c (string= "yes" c)))) (new-hash
(and cache (org-babel-sha1-hash info))) (old-hash (and cache
(org-babel-current-result-hash))) (current-cache (and new-hash (equal
new-hash old-hash)))) (cond (current-cache (save-excursion (goto-char
(org-babel-where-is-src-block-result nil info)) (forward-line)
(skip-chars-forward " ") (let ((result ...)) (message
(replace-regexp-in-string "%" "%%" ...)) result)))
((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info))
(result-params (cdr ...)) (body (let ... ...)) (dir (cdr ...))
(default-directory (or ... default-directory)) (cmd (intern ...))
result) (if (fboundp cmd) nil (error "No org-babel-execute function for
%s!" lang)) (message "executing %s code block%s..." (capitalize lang)
(let (...) (if name ... ""))) (if (member "none" result-params) (progn
(funcall cmd body params) (message "result silenced")) (setq result (let
... ...)) (let (...) (if file ...) (let ... ...)
(org-babel-insert-result result result-params info new-hash lang)))
(run-hooks (quote org-babel-after-execute-hook)) result)))))
(if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2
info))) (setcar c (org-babel-process-params (car c)))) (let* ((params
(nth 2 info)) (cache (let ((c ...)) (and (not arg) c (string= "yes"
c)))) (new-hash (and cache (org-babel-sha1-hash info))) (old-hash (and
cache (org-babel-current-result-hash))) (current-cache (and new-hash
(equal new-hash old-hash)))) (cond (current-cache (save-excursion
(goto-char (org-babel-where-is-src-block-result nil info))
(forward-line) (skip-chars-forward " ") (let (...) (message ...)
result))) ((org-babel-confirm-evaluate info) (let* ((lang ...)
(result-params ...) (body ...) (dir ...) (default-directory ...) (cmd
...) result) (if (fboundp cmd) nil (error "No org-babel-execute function
for %s!" lang)) (message "executing %s code block%s..." (capitalize
lang) (let ... ...)) (if (member "none" result-params) (progn ... ...)
(setq result ...) (let ... ... ... ...)) (run-hooks (quote
org-babel-after-execute-hook)) result))))))
(let* ((org-babel-current-src-block-location (or
org-babel-current-src-block-location (nth 5 info)
(org-babel-where-is-src-block-head))) (info (if info (copy-tree info)
(org-babel-get-src-block-info)))) (let* ((c (nthcdr 2 info))) (setcar c
(org-babel-merge-params (car c) params))) (if (org-babel-check-evaluate
info) (progn (let* ((c (nthcdr 2 info))) (setcar c
(org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (cache
(let (...) (and ... c ...))) (new-hash (and cache (org-babel-sha1-hash
info))) (old-hash (and cache (org-babel-current-result-hash)))
(current-cache (and new-hash (equal new-hash old-hash)))) (cond
(current-cache (save-excursion (goto-char ...) (forward-line)
(skip-chars-forward " ") (let ... ... result)))
((org-babel-confirm-evaluate info) (let* (... ... ... ... ... ...
result) (if ... nil ...) (message "executing %s code block%s..." ...
...) (if ... ... ... ...) (run-hooks ...) result)))))))
org-babel-execute-src-block(nil ("R" "library(ggplot2)\nqplot(c(1,
2, 3), c(2, 4, 9))" ((:colname-names) (:rowname-names) (:result-params
"graphics" "replace" "file") (:result-type . value) (:results .
"graphics replace file") (:exports . "code") (:colnames . "yes") (:file
. "/tmp/foo.png") (:session) (:tangle . "no") (:hlines . "no") (:noweb .
"no") (:cache . "no")) "" nil 1 "(ref:%s)"))
(if org-babel-no-eval-on-ctrl-c-ctrl-c nil
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block
current-prefix-arg (org-babel-get-src-block-info nil context)))
(let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block
current-prefix-arg (org-babel-get-src-block-info nil context))))
(cond ((memq type (quote (inline-babel-call babel-call))) (let nil
(let ((info (org-babel-lob-get-info context))) (if info (progn
(org-babel-execute-src-block nil info)))))) ((eq type (quote clock))
(let nil (org-clock-update-time-maybe))) ((eq type (quote
dynamic-block)) (let nil (save-excursion (goto-char
(org-element-property :post-affiliated context)) (org-update-dblock))))
((eq type (quote footnote-definition)) (let nil (goto-char
(org-element-property :post-affiliated context)) (call-interactively
(quote org-footnote-action)))) ((eq type (quote footnote-reference))
(let nil (call-interactively (function org-footnote-action)))) ((memq
type (quote (inlinetask headline))) (let nil (save-excursion (goto-char
(org-element-property :begin context)) (call-interactively (function
org-set-tags))))) ((memq type (quote (src-block inline-src-block))) (let
nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block
current-prefix-arg (org-babel-get-src-block-info nil context))))) ((eq
type (quote item)) (let nil (let* ((box (org-element-property :checkbox
context)) (struct (org-element-property :structure context)) (old-struct
(copy-tree struct)) (parents (org-list-parents-alist struct)) (prevs
(org-list-prevs-alist struct)) (orderedp (org-not-nil (org-entry-get nil
"ORDERED")))) (org-list-set-checkbox (org-element-property :begin
context) struct (cond ((equal arg ...) "[-]") ((and ... ...) "[ ]") ((or
... ...) nil) ((eq box ...) "[ ]") (t "[X]"))) (org-list-struct-fix-ind
struct parents 2) (org-list-struct-fix-item-end struct)
(org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind struct
parents) (let ((block-item (org-list-struct-fix-box struct parents prevs
orderedp))) (if (and box (equal struct old-struct)) (if (equal arg ...)
(message "Checkboxes already reset") (user-error "Cannot toggle this
checkbox: %s" ...)) (org-list-struct-apply-struct struct old-struct)
(org-update-checkbox-count-maybe)) (if block-item (progn (message
"Checkboxes were removed due to empty box at line %d" ...))))))) ((eq
type (quote keyword)) (let nil (let
((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-tables
nil)) (if (boundp (quote org-table-coordinate-overlays)) (progn (mapc
(function delete-overlay) org-table-coordinate-overlays) (setq
org-table-coordinate-overlays nil))) (let ((--data
(org-outline-overlay-data ...))) (unwind-protect (prog1 (progn ...)
(org-set-outline-overlay-data --data)) (if (quote use-markers) (progn
...))))) (message "Local setup has been refreshed"))) ((eq type (quote
plain-list)) (let nil (let* ((begin (org-element-property
:contents-begin context)) (beginm (move-marker (make-marker) begin))
(struct (org-element-property :structure context)) (old-struct
(copy-tree struct)) (first-box (save-excursion (goto-char begin)
(looking-at org-list-full-item-re) (match-string-no-properties 3)))
(new-box (cond (... "[-]") (... ...) (... "[ ]") (t "[X]")))) (cond (arg
(let (...) (while --dolist-tail-- ...))) ((and first-box (eq ... begin))
(org-list-set-checkbox begin struct new-box))) (org-list-write-struct
struct (org-list-parents-alist struct) old-struct)
(org-update-checkbox-count-maybe) (save-excursion (goto-char beginm)
(org-list-send-list (quote maybe)))))) ((memq type (quote (node-property
property-drawer))) (let nil (call-interactively (function
org-property-action)))) ((eq type (quote radio-target)) (let nil
(call-interactively (function org-update-radio-target-regexp)))) ((eq
type (quote statistics-cookie)) (let nil (call-interactively (function
org-update-statistics-cookies)))) ((memq type (quote (table-row
table-cell table))) (let nil (if (eq (org-element-property :type
context) (quote table\.el)) (message "%s" (substitute-command-keys
"\\<org-mode-map>Use `\\[org-edit-special]' to edit table.el tables"))
(let ((org-enable-table-editor t)) (if (or (eq type ...) (and ... ...))
(save-excursion (if ... ... ... ... ...)) (org-table-maybe-eval-formula)
(cond (arg ...) (...) (t ...))))))) ((eq type (quote timestamp)) (let
nil (org-timestamp-change 0 (quote day)))) ((null type) (cond
((org-at-heading-p) (let nil (call-interactively (function
org-set-tags)))) ((run-hook-with-args-until-success (quote
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall
pcase-1)))) ((run-hook-with-args-until-success (quote
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall pcase-1)))
(let* ((pcase-1 (function (lambda nil (user-error
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful
here"))))) (pcase-0 (function (lambda nil)))) (cond ((memq type (quote
(inline-babel-call babel-call))) (let nil (let ((info
(org-babel-lob-get-info context))) (if info (progn
(org-babel-execute-src-block nil info)))))) ((eq type (quote clock))
(let nil (org-clock-update-time-maybe))) ((eq type (quote
dynamic-block)) (let nil (save-excursion (goto-char
(org-element-property :post-affiliated context)) (org-update-dblock))))
((eq type (quote footnote-definition)) (let nil (goto-char
(org-element-property :post-affiliated context)) (call-interactively
(quote org-footnote-action)))) ((eq type (quote footnote-reference))
(let nil (call-interactively (function org-footnote-action)))) ((memq
type (quote (inlinetask headline))) (let nil (save-excursion (goto-char
(org-element-property :begin context)) (call-interactively (function
org-set-tags))))) ((memq type (quote (src-block inline-src-block))) (let
nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block
current-prefix-arg (org-babel-get-src-block-info nil context))))) ((eq
type (quote item)) (let nil (let* ((box (org-element-property :checkbox
context)) (struct (org-element-property :structure context)) (old-struct
(copy-tree struct)) (parents (org-list-parents-alist struct)) (prevs
(org-list-prevs-alist struct)) (orderedp (org-not-nil ...)))
(org-list-set-checkbox (org-element-property :begin context) struct
(cond (... "[-]") (... "[ ]") (... nil) (... "[ ]") (t "[X]")))
(org-list-struct-fix-ind struct parents 2) (org-list-struct-fix-item-end
struct) (org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind
struct parents) (let ((block-item ...)) (if (and box ...) (if ... ...
...) (org-list-struct-apply-struct struct old-struct)
(org-update-checkbox-count-maybe)) (if block-item (progn ...)))))) ((eq
type (quote keyword)) (let nil (let
((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-tables
nil)) (if (boundp (quote org-table-coordinate-overlays)) (progn (mapc
... org-table-coordinate-overlays) (setq org-table-coordinate-overlays
nil))) (let ((--data ...)) (unwind-protect (prog1 ... ...) (if ...
...)))) (message "Local setup has been refreshed"))) ((eq type (quote
plain-list)) (let nil (let* ((begin (org-element-property
:contents-begin context)) (beginm (move-marker ... begin)) (struct
(org-element-property :structure context)) (old-struct (copy-tree
struct)) (first-box (save-excursion ... ... ...)) (new-box (cond ... ...
... ...))) (cond (arg (let ... ...)) ((and first-box ...)
(org-list-set-checkbox begin struct new-box))) (org-list-write-struct
struct (org-list-parents-alist struct) old-struct)
(org-update-checkbox-count-maybe) (save-excursion (goto-char beginm)
(org-list-send-list (quote maybe)))))) ((memq type (quote (node-property
property-drawer))) (let nil (call-interactively (function
org-property-action)))) ((eq type (quote radio-target)) (let nil
(call-interactively (function org-update-radio-target-regexp)))) ((eq
type (quote statistics-cookie)) (let nil (call-interactively (function
org-update-statistics-cookies)))) ((memq type (quote (table-row
table-cell table))) (let nil (if (eq (org-element-property :type
context) (quote table\.el)) (message "%s" (substitute-command-keys
"\\<org-mode-map>Use `\\[org-edit-special]' to edit table.el tables"))
(let ((org-enable-table-editor t)) (if (or ... ...) (save-excursion ...)
(org-table-maybe-eval-formula) (cond ... ... ...)))))) ((eq type (quote
timestamp)) (let nil (org-timestamp-change 0 (quote day)))) ((null type)
(cond ((org-at-heading-p) (let nil (call-interactively (function
org-set-tags)))) ((run-hook-with-args-until-success (quote
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall
pcase-1)))) ((run-hook-with-args-until-success (quote
org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-0)) (t (funcall pcase-1))))
(let* ((context (org-element-lineage (org-element-context) (quote
(babel-call clock dynamic-block footnote-definition footnote-reference
inline-babel-call inline-src-block inlinetask item keyword node-property
paragraph plain-list property-drawer radio-target src-block
statistics-cookie table table-cell table-row timestamp)) t)) (type
(org-element-type context))) (if (eq type (quote paragraph)) (progn (let
((parent (org-element-property :parent context))) (if (and (eq
(org-element-type parent) (quote item)) (= (line-beginning-position)
(org-element-property :begin parent))) (progn (setq context parent)
(setq type (quote item))))))) (let* ((pcase-1 (function (lambda nil
(user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do
nothing useful here"))))) (pcase-0 (function (lambda nil)))) (cond
((memq type (quote (inline-babel-call babel-call))) (let nil (let ((info
...)) (if info (progn ...))))) ((eq type (quote clock)) (let nil
(org-clock-update-time-maybe))) ((eq type (quote dynamic-block)) (let
nil (save-excursion (goto-char (org-element-property :post-affiliated
context)) (org-update-dblock)))) ((eq type (quote footnote-definition))
(let nil (goto-char (org-element-property :post-affiliated context))
(call-interactively (quote org-footnote-action)))) ((eq type (quote
footnote-reference)) (let nil (call-interactively (function
org-footnote-action)))) ((memq type (quote (inlinetask headline))) (let
nil (save-excursion (goto-char (org-element-property :begin context))
(call-interactively (function org-set-tags))))) ((memq type (quote
(src-block inline-src-block))) (let nil (if
org-babel-no-eval-on-ctrl-c-ctrl-c nil
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block
current-prefix-arg (org-babel-get-src-block-info nil context))))) ((eq
type (quote item)) (let nil (let* ((box ...) (struct ...) (old-struct
...) (parents ...) (prevs ...) (orderedp ...)) (org-list-set-checkbox
(org-element-property :begin context) struct (cond ... ... ... ... ...))
(org-list-struct-fix-ind struct parents 2) (org-list-struct-fix-item-end
struct) (org-list-struct-fix-bul struct prevs) (org-list-struct-fix-ind
struct parents) (let (...) (if ... ... ... ...) (if block-item ...)))))
((eq type (quote keyword)) (let nil (let
((org-inhibit-startup-visibility-stuff t) (org-startup-align-all-tables
nil)) (if (boundp ...) (progn ... ...)) (let (...) (unwind-protect ...
...))) (message "Local setup has been refreshed"))) ((eq type (quote
plain-list)) (let nil (let* ((begin ...) (beginm ...) (struct ...)
(old-struct ...) (first-box ...) (new-box ...)) (cond (arg ...) (...
...)) (org-list-write-struct struct (org-list-parents-alist struct)
old-struct) (org-update-checkbox-count-maybe) (save-excursion (goto-char
beginm) (org-list-send-list ...))))) ((memq type (quote (node-property
property-drawer))) (let nil (call-interactively (function
org-property-action)))) ((eq type (quote radio-target)) (let nil
(call-interactively (function org-update-radio-target-regexp)))) ((eq
type (quote statistics-cookie)) (let nil (call-interactively (function
org-update-statistics-cookies)))) ((memq type (quote (table-row
table-cell table))) (let nil (if (eq (org-element-property :type
context) (quote table\.el)) (message "%s" (substitute-command-keys
"\\<org-mode-map>Use `\\[org-edit-special]' to edit table.el tables"))
(let (...) (if ... ... ... ...))))) ((eq type (quote timestamp)) (let
nil (org-timestamp-change 0 (quote day)))) ((null type) (cond
((org-at-heading-p) (let nil (call-interactively ...)))
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook))
(funcall pcase-0)) (t (funcall pcase-1))))
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook))
(funcall pcase-0)) (t (funcall pcase-1)))))
(cond ((or (and (boundp (quote org-clock-overlays))
org-clock-overlays) org-occur-highlights) (if (boundp (quote
org-clock-overlays)) (progn (org-clock-remove-overlays)))
(org-remove-occur-highlights) (message "Temporary highlights/overlays
removed from current buffer")) ((and (local-variable-p (quote
org-finish-function)) (fboundp org-finish-function)) (funcall
org-finish-function)) ((org-babel-hash-at-point))
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-hook)))
((save-excursion (beginning-of-line) (looking-at-p "[ ]*$")) (or
(run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook))
(user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do
nothing useful here")))) (t (let* ((context (org-element-lineage
(org-element-context) (quote (babel-call clock dynamic-block
footnote-definition footnote-reference inline-babel-call
inline-src-block inlinetask item keyword node-property paragraph
plain-list property-drawer radio-target src-block statistics-cookie
table table-cell table-row timestamp)) t)) (type (org-element-type
context))) (if (eq type (quote paragraph)) (progn (let ((parent ...))
(if (and ... ...) (progn ... ...))))) (let* ((pcase-1 (function (lambda
nil ...))) (pcase-0 (function (lambda nil)))) (cond ((memq type (quote
...)) (let nil (let ... ...))) ((eq type (quote clock)) (let nil
(org-clock-update-time-maybe))) ((eq type (quote dynamic-block)) (let
nil (save-excursion ... ...))) ((eq type (quote footnote-definition))
(let nil (goto-char ...) (call-interactively ...))) ((eq type (quote
footnote-reference)) (let nil (call-interactively ...))) ((memq type
(quote ...)) (let nil (save-excursion ... ...))) ((memq type (quote
...)) (let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil ... ...)))
((eq type (quote item)) (let nil (let* ... ... ... ... ... ... ...)))
((eq type (quote keyword)) (let nil (let ... ... ...) (message "Local
setup has been refreshed"))) ((eq type (quote plain-list)) (let nil
(let* ... ... ... ... ...))) ((memq type (quote ...)) (let nil
(call-interactively ...))) ((eq type (quote radio-target)) (let nil
(call-interactively ...))) ((eq type (quote statistics-cookie)) (let nil
(call-interactively ...))) ((memq type (quote ...)) (let nil (if ... ...
...))) ((eq type (quote timestamp)) (let nil (org-timestamp-change 0
...))) ((null type) (cond (... ...) (... ...) (t ...)))
((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook))
(funcall pcase-0)) (t (funcall pcase-1)))))))
org-ctrl-c-ctrl-c(nil)
funcall-interactively(org-ctrl-c-ctrl-c nil)
call-interactively(org-ctrl-c-ctrl-c nil nil)
command-execute(org-ctrl-c-ctrl-c)
I'm running:
Emacs : GNU Emacs 25.1.2 (x86_64-pc-linux-gnu, GTK+ Version 3.20.9)
of 2016-09-28
Package: Org mode version 9.0.3 (9.0.3-elpa @
/home/hippo/.emacs.d/elpa/org-20161224/)
on Ubuntu 16.10.
next reply other threads:[~2016-12-28 18:46 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2016-12-28 18:46 Kodi Arfer [this message]
2016-12-29 2:40 ` Error when using :session :colnames yes :results graphics on an R code block Charles C. Berry
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=225a369e-d62f-8dec-a276-8e02a8685994@arfer.net \
--to=kodi@arfer.net \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.