* Re: Symbol’s value as variable is void: haskell-prompt-regexp
2018-06-04 18:36 ` Nick Dokos
@ 2018-06-04 19:28 ` Roger Mason
0 siblings, 0 replies; 5+ messages in thread
From: Roger Mason @ 2018-06-04 19:28 UTC (permalink / raw)
To: Nick Dokos; +Cc: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 858 bytes --]
Hello,
Nick Dokos <ndokos@gmail.com> writes:
> Please provide a backtrace.
This source block:
#+begin_src haskell :exports results
nanmol=[1,1,3,2,1,2,3]
ncatmol=[2,1,2,1,2,1,2]
#+end_src
produces the error in the attached backtrace
Steps to reproduce:
1. emacs -Q -l init
with init being:
;;;; Org-mode
(add-to-list 'load-path "/home/rmason/.emacs.d/org-git/lisp")
(add-to-list 'load-path "/home/rmason/.emacs.d/org-git/contrib/lisp")
(add-to-list 'load-path "/home/rmason/.emacs.d/elpa/haskell-mode-20180601.143")
(org-babel-do-load-languages
'org-babel-load-languages
'((shell . t)
(emacs-lisp . t)
(haskell . t)
))
2. evaluste the source block
GNU Emacs 25.3.1 (i386-portbld-freebsd11.1, GTK+ Version 3.22.29) of 2018-04-26
Org mode version 9.1.13 (release_9.1.13-784-ged7d1d @
/home/rmason/.emacs.d/org-git/lisp/)
Cheers,
Roger
[-- Attachment #2: haskell_error.debug --]
[-- Type: application/octet-stream, Size: 29987 bytes --]
Debugger entered--Lisp error: (error "‘org-babel-script-escape’ expects a string")
signal(error ("‘org-babel-script-escape’ expects a string"))
error("`org-babel-script-escape' expects a string")
(if (stringp str) nil (error "`org-babel-script-escape' expects a string"))
org-babel-script-escape(nil)
(if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "pp" --params) (member "file" --params) (and (or (member "output" --params) (member "raw" --params) (member "org" --params) (member "drawer" --params)) (not (member "table" --params)))) result (org-babel-script-escape result))
(if (member "none" --params) nil (if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "pp" --params) (member "file" --params) (and (or (member "output" --params) (member "raw" --params) (member "org" --params) (member "drawer" --params)) (not (member "table" --params)))) result (org-babel-script-escape result)))
(let ((--params (cdr (assq :result-params params)))) (if (member "none" --params) nil (if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "pp" --params) (member "file" --params) (and (or (member "output" --params) (member "raw" --params) (member "org" --params) (member "drawer" --params)) (not (member "table" --params)))) result (org-babel-script-escape result))))
(let ((result (cond ((eq result-type (quote output)) (let nil (mapconcat (function identity) (reverse ...) "\n"))) ((eq result-type (quote value)) (let nil (car results))) (t nil)))) (let ((--params (cdr (assq :result-params params)))) (if (member "none" --params) nil (if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "pp" --params) (member "file" --params) (and (or (member "output" --params) (member "raw" --params) (member "org" --params) (member "drawer" --params)) (not (member "table" --params)))) result (org-babel-script-escape result)))))
(org-babel-reassemble-table (let ((result (cond ((eq result-type (quote output)) (let nil (mapconcat ... ... "\n"))) ((eq result-type (quote value)) (let nil (car results))) (t nil)))) (let ((--params (cdr (assq :result-params params)))) (if (member "none" --params) nil (if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "pp" --params) (member "file" --params) (and (or ... ... ... ...) (not ...))) result (org-babel-script-escape result))))) (org-babel-pick-name (cdr (assq :colname-names params)) (cdr (assq :colname-names params))) (org-babel-pick-name (cdr (assq :rowname-names params)) (cdr (assq :rowname-names params))))
(let* ((session (cdr (assq :session params))) (result-type (cdr (assq :result-type params))) (full-body (org-babel-expand-body:generic body params (org-babel-variable-assignments:haskell params))) (session (org-babel-haskell-initiate-session session params)) (comint-preoutput-filter-functions (cons (quote ansi-color-filter-apply) comint-preoutput-filter-functions)) (raw (progn (if (org-babel-comint-buffer-livep session) nil (error "Buffer %s does not exist or has no process" session)) (let ((save-match-data-internal (match-data))) (unwind-protect (progn (save-current-buffer ... ...)) (set-match-data save-match-data-internal (quote evaporate)))))) (results (mapcar (function org-babel-strip-quotes) (cdr (member org-babel-haskell-eoe (reverse (mapcar ... raw))))))) (org-babel-reassemble-table (let ((result (cond ((eq result-type ...) (let nil ...)) ((eq result-type ...) (let nil ...)) (t nil)))) (let ((--params (cdr (assq :result-params params)))) (if (member "none" --params) nil (if (or (member "scalar" --params) (member "verbatim" --params) (member "html" --params) (member "code" --params) (member "pp" --params) (member "file" --params) (and ... ...)) result (org-babel-script-escape result))))) (org-babel-pick-name (cdr (assq :colname-names params)) (cdr (assq :colname-names params))) (org-babel-pick-name (cdr (assq :rowname-names params)) (cdr (assq :rowname-names params)))))
org-babel-execute:haskell("nanmol=[1,1,3,2,1,2,3]\nncatmol=[2,1,2,1,2,1,2]" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "results") (:session . "none") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no") (:padlines . "no")))
funcall(org-babel-execute:haskell "nanmol=[1,1,3,2,1,2,3]\nncatmol=[2,1,2,1,2,1,2]" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "results") (:session . "none") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no") (:padlines . "no")))
(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 (and result (not (or ... ...))) (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 (and result (not ...)) (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 ... ...) (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 ("haskell" "nanmol=[1,1,3,2,1,2,3]\nncatmol=[2,1,2,1,2,1,2]" ((:colname-names) (:rowname-names) (:result-params "replace") (:result-type . value) (:results . "replace") (:exports . "results") (:padlines . "no") (:tangle . "no") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")) "" nil 148 "(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 (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))))) ((org-match-line "[ ]*$") (let nil (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"))))) ((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-command))))) ((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* ((--invisible-types (quote ...)) (--markers\? (quote use-markers)) (--data (mapcar ... ...))) (unwind-protect (progn (org-mode-restart)) (save-excursion (save-restriction ... ... ...))))) (message "Local setup has been refreshed"))) ((eq type (quote plain-list)) (let nil (let* ((begin (org-element-property :contents-begin context)) (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))) (if (equal (org-list-write-struct struct (org-list-parents-alist struct) old-struct) old-struct) (progn (message "Cannot update this checkbox"))) (org-update-checkbox-count-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")) (if (or (eq type (quote table)) (and (eq type ...) (= ... ...))) (save-excursion (if (org-at-TBLFM-p) (progn ... ...) (goto-char ...) (org-call-with-arg ... ...) (orgtbl-send-table ...))) (org-table-maybe-eval-formula) (cond (arg (call-interactively ...)) ((org-table-maybe-recalculate-line)) (t (org-table-align))))))) ((eq type (quote timestamp)) (funcall pcase-0)) ((eq type (quote planning)) (cond ((org-at-timestamp-p (quote lax)) (funcall pcase-0)) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))) ((null type) (cond ((org-at-heading-p) (let nil (call-interactively (function org-set-tags-command)))) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))
(let* ((pcase-2 (function (lambda nil (user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) (pcase-1 (function (lambda nil))) (pcase-0 (function (lambda nil (org-timestamp-change 0 (quote day)))))) (cond ((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))))) ((org-match-line "[ ]*$") (let nil (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"))))) ((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-command))))) ((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* ((--invisible-types ...) (--markers\? ...) (--data ...)) (unwind-protect (progn ...) (save-excursion ...)))) (message "Local setup has been refreshed"))) ((eq type (quote plain-list)) (let nil (let* ((begin (org-element-property :contents-begin context)) (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))) (if (equal (org-list-write-struct struct ... old-struct) old-struct) (progn (message "Cannot update this checkbox"))) (org-update-checkbox-count-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")) (if (or (eq type ...) (and ... ...)) (save-excursion (if ... ... ... ... ...)) (org-table-maybe-eval-formula) (cond (arg ...) (...) (t ...)))))) ((eq type (quote timestamp)) (funcall pcase-0)) ((eq type (quote planning)) (cond ((org-at-timestamp-p (quote lax)) (funcall pcase-0)) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))) ((null type) (cond ((org-at-heading-p) (let nil (call-interactively (function org-set-tags-command)))) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2))))
(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 planning 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-2 (function (lambda nil (user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) (pcase-1 (function (lambda nil))) (pcase-0 (function (lambda nil (org-timestamp-change 0 (quote day)))))) (cond ((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))))) ((org-match-line "[ ]*$") (let nil (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"))))) ((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-command))))) ((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 ...) (struct ...) (old-struct ...) (first-box ...) (new-box ...)) (cond (arg ...) (... ...)) (if (equal ... old-struct) (progn ...)) (org-update-checkbox-count-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")) (if (or ... ...) (save-excursion ...) (org-table-maybe-eval-formula) (cond ... ... ...))))) ((eq type (quote timestamp)) (funcall pcase-0)) ((eq type (quote planning)) (cond ((org-at-timestamp-p (quote lax)) (funcall pcase-0)) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))) ((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-1)) (t (funcall pcase-2)))) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))))
(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))) (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 planning 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-2 (function (lambda nil ...))) (pcase-1 (function (lambda nil))) (pcase-0 (function (lambda nil ...)))) (cond ((memq type (quote ...)) (let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil ... ...))) ((org-match-line "[ ]*$") (let nil (or ... ...))) ((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 ... ...))) ((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)) (funcall pcase-0)) ((eq type (quote planning)) (cond (... ...) (... ...) (t ...))) ((null type) (cond (... ...) (... ...) (t ...))) ((run-hook-with-args-until-success (quote org-ctrl-c-ctrl-c-final-hook)) (funcall pcase-1)) (t (funcall pcase-2)))))))
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)
^ permalink raw reply [flat|nested] 5+ messages in thread