From mboxrd@z Thu Jan 1 00:00:00 1970 From: Kodi Arfer Subject: Error when using :session :colnames yes :results graphics on an R code block Date: Wed, 28 Dec 2016 10:46:09 -0800 Message-ID: <225a369e-d62f-8dec-a276-8e02a8685994@arfer.net> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:44611) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cMJEx-0000UH-3u for emacs-orgmode@gnu.org; Wed, 28 Dec 2016 13:46:22 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cMJEt-00037n-Pe for emacs-orgmode@gnu.org; Wed, 28 Dec 2016 13:46:19 -0500 Received: from mxout-07.mxes.net ([216.86.168.182]:12608) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cMJEt-00036z-5c for emacs-orgmode@gnu.org; Wed, 28 Dec 2016 13:46:15 -0500 Received: from [45.49.139.19] (unknown [45.49.139.19]) (using TLSv1.2 with cipher DHE-RSA-AES128-SHA (128/128 bits)) (No client certificate requested) by smtp.mxes.net (Postfix) with ESMTPSA id E677622E253 for ; Wed, 28 Dec 2016 13:46:10 -0500 (EST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org 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 "\\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 "\\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 "\\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.