Lawrence Bottorff <borg...@gmail.com> writes:
> Again, this code
>
> #+BEGIN_SRC scheme :session ch1 :exports both
> (define (bool-imply a b)
> (if (or (not a) b) #t #f))
> #+END_SRC
>
> gives the error
>
> org-babel-scheme-execute-with-geiser: Invalid read syntax: "#"
>
> and this time attempting to use the function
>
> #+BEGIN_SRC scheme :session ch1 :exports both
> (bool-imply #t #f)
> #+END_SRC
>
> produces no #RESULTS: block, rather, again, the error (in Messages buffer)
>
> org-babel-scheme-execute-with-geiser: Invalid read syntax: "#"
>
> even though this is perfectly healthy code, and it works in the accompanying
> "ch1" REPL. Any ideas what's happening?
>
Your previous example worked for me (both with master and maint - I use
guile, not chicken, but that should make no difference).
But this one fails with the "Invalid read syntax error" and with the
attached backtrace (running on maint - master gave the same error but
I didn't get a backtrace).
read("#f")
(if (or (string= result "#<void>") (string= result "#<unspecified>")) nil
(read result))
(setq result (if (or (string= result "#<void>") (string= result
"#<unspecified>")) nil (read result)))
(let ((repl-buffer (save-current-buffer (org-babel-scheme-get-repl impl
repl)))) (if (not (eq impl (org-babel-scheme-get-buffer-impl
(current-buffer)))) (progn (message "Implementation mismatch: %s (%s) %s (%s)"
impl (symbolp impl) (org-babel-scheme-get-buffer-impl (current-buffer))
(symbolp (org-babel-scheme-get-buffer-impl (current-buffer)))))) (setq
geiser-repl--repl repl-buffer) (setq geiser-impl--implementation nil) (setq
result (if noninteractive (let ((original-message (symbol-function (quote
message))) (current-message nil)) (unwind-protect (progn (defalias (quote
message) (function ...)) (geiser-eval-region (point-min) (point-max))
current-message) (fset (quote message) original-message))) (progn
(geiser-eval-region (point-min) (point-max)) (current-message)))) (setq result
(if (and (stringp result) (equal (substring result 0 3) "=> "))
(replace-regexp-in-string "^=> " "" result) "\"An error occurred.\"")) (if (not
repl) (progn (save-current-buffer (set-buffer repl-buffer) (geiser-repl-exit))
(set-process-query-on-exit-flag (get-buffer-process repl-buffer) nil)
(kill-buffer repl-buffer))) (setq result (if (or (string= result "#<void>")
(string= result "#<unspecified>")) nil (read result))))
(progn (insert (format ";; -*- geiser-scheme-implementation: %s -*-" impl))
(newline) (insert (if output (format "(with-output-to-string (lambda () %s))"
code) code)) (geiser-mode) (let ((repl-buffer (save-current-buffer
(org-babel-scheme-get-repl impl repl)))) (if (not (eq impl
(org-babel-scheme-get-buffer-impl (current-buffer)))) (progn (message
"Implementation mismatch: %s (%s) %s (%s)" impl (symbolp impl)
(org-babel-scheme-get-buffer-impl (current-buffer)) (symbolp
(org-babel-scheme-get-buffer-impl (current-buffer)))))) (setq geiser-repl--repl
repl-buffer) (setq geiser-impl--implementation nil) (setq result (if
noninteractive (let ((original-message (symbol-function ...)) (current-message
nil)) (unwind-protect (progn (defalias ... ...) (geiser-eval-region ... ...)
current-message) (fset (quote message) original-message))) (progn
(geiser-eval-region (point-min) (point-max)) (current-message)))) (setq result
(if (and (stringp result) (equal (substring result 0 3) "=> "))
(replace-regexp-in-string "^=> " "" result) "\"An error occurred.\"")) (if (not
repl) (progn (save-current-buffer (set-buffer repl-buffer) (geiser-repl-exit))
(set-process-query-on-exit-flag (get-buffer-process repl-buffer) nil)
(kill-buffer repl-buffer))) (setq result (if (or (string= result "#<void>")
(string= result "#<unspecified>")) nil (read result)))))
(unwind-protect (progn (insert (format ";; -*- geiser-scheme-implementation:
%s -*-" impl)) (newline) (insert (if output (format "(with-output-to-string
(lambda () %s))" code) code)) (geiser-mode) (let ((repl-buffer
(save-current-buffer (org-babel-scheme-get-repl impl repl)))) (if (not (eq impl
(org-babel-scheme-get-buffer-impl (current-buffer)))) (progn (message
"Implementation mismatch: %s (%s) %s (%s)" impl (symbolp impl)
(org-babel-scheme-get-buffer-impl (current-buffer)) (symbolp
(org-babel-scheme-get-buffer-impl ...))))) (setq geiser-repl--repl repl-buffer)
(setq geiser-impl--implementation nil) (setq result (if noninteractive (let
((original-message ...) (current-message nil)) (unwind-protect (progn ... ...
current-message) (fset ... original-message))) (progn (geiser-eval-region
(point-min) (point-max)) (current-message)))) (setq result (if (and (stringp
result) (equal (substring result 0 3) "=> ")) (replace-regexp-in-string "^=> "
"" result) "\"An error occurred.\"")) (if (not repl) (progn
(save-current-buffer (set-buffer repl-buffer) (geiser-repl-exit))
(set-process-query-on-exit-flag (get-buffer-process repl-buffer) nil)
(kill-buffer repl-buffer))) (setq result (if (or (string= result "#<void>")
(string= result "#<unspecified>")) nil (read result))))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
(format ";; -*- geiser-scheme-implementation: %s -*-" impl)) (newline) (insert
(if output (format "(with-output-to-string (lambda () %s))" code) code))
(geiser-mode) (let ((repl-buffer (save-current-buffer
(org-babel-scheme-get-repl impl repl)))) (if (not (eq impl
(org-babel-scheme-get-buffer-impl ...))) (progn (message "Implementation
mismatch: %s (%s) %s (%s)" impl (symbolp impl)
(org-babel-scheme-get-buffer-impl ...) (symbolp ...)))) (setq geiser-repl--repl
repl-buffer) (setq geiser-impl--implementation nil) (setq result (if
noninteractive (let (... ...) (unwind-protect ... ...)) (progn
(geiser-eval-region ... ...) (current-message)))) (setq result (if (and
(stringp result) (equal ... "=> ")) (replace-regexp-in-string "^=> " "" result)
"\"An error occurred.\"")) (if (not repl) (progn (save-current-buffer
(set-buffer repl-buffer) (geiser-repl-exit)) (set-process-query-on-exit-flag
(get-buffer-process repl-buffer) nil) (kill-buffer repl-buffer))) (setq result
(if (or (string= result "#<void>") (string= result "#<unspecified>")) nil (read
result))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))
(let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer
(set-buffer temp-buffer) (unwind-protect (progn (insert (format ";; -*-
geiser-scheme-implementation: %s -*-" impl)) (newline) (insert (if output
(format "(with-output-to-string (lambda () %s))" code) code)) (geiser-mode)
(let ((repl-buffer (save-current-buffer ...))) (if (not (eq impl ...)) (progn
(message "Implementation mismatch: %s (%s) %s (%s)" impl ... ... ...))) (setq
geiser-repl--repl repl-buffer) (setq geiser-impl--implementation nil) (setq
result (if noninteractive (let ... ...) (progn ... ...))) (setq result (if (and
... ...) (replace-regexp-in-string "^=> " "" result) "\"An error occurred.\""))
(if (not repl) (progn (save-current-buffer ... ...)
(set-process-query-on-exit-flag ... nil) (kill-buffer repl-buffer))) (setq
result (if (or ... ...) nil (read result))))) (and (buffer-name temp-buffer)
(kill-buffer temp-buffer)))))
(let ((result nil)) (let ((temp-buffer (generate-new-buffer " *temp*")))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert
(format ";; -*- geiser-scheme-implementation: %s -*-" impl)) (newline) (insert
(if output (format "(with-output-to-string (lambda () %s))" code) code))
(geiser-mode) (let ((repl-buffer ...)) (if (not ...) (progn ...)) (setq
geiser-repl--repl repl-buffer) (setq geiser-impl--implementation nil) (setq
result (if noninteractive ... ...)) (setq result (if ... ... "\"An error
occurred.\"")) (if (not repl) (progn ... ... ...)) (setq result (if ... nil
...)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) result)
org-babel-scheme-execute-with-geiser("(bool-imply #t #f)" nil guile "ch1")
(let* ((result-type (cdr (assoc :result-type params))) (impl (or (if (cdr
(assoc :scheme params)) (progn (intern (cdr ...))))
geiser-default-implementation (car geiser-active-implementations))) (session
(org-babel-scheme-make-session-name source-buffer-name (cdr (assoc :session
params)) impl)) (full-body (org-babel-expand-body:scheme body params)))
(org-babel-scheme-execute-with-geiser full-body (string= result-type "output")
impl (and (not (string= session "none")) session)))
(org-babel-reassemble-table (let* ((result-type (cdr (assoc :result-type
params))) (impl (or (if (cdr (assoc :scheme params)) (progn (intern ...)))
geiser-default-implementation (car geiser-active-implementations))) (session
(org-babel-scheme-make-session-name source-buffer-name (cdr (assoc :session
params)) impl)) (full-body (org-babel-expand-body:scheme body params)))
(org-babel-scheme-execute-with-geiser full-body (string= result-type "output")
impl (and (not (string= session "none")) session))) (org-babel-pick-name (cdr
(assoc :colname-names params)) (cdr (assoc :colnames params)))
(org-babel-pick-name (cdr (assoc :rowname-names params)) (cdr (assoc :rownames
params))))
(save-excursion (org-babel-reassemble-table (let* ((result-type (cdr (assoc
:result-type params))) (impl (or (if (cdr ...) (progn ...))
geiser-default-implementation (car geiser-active-implementations))) (session
(org-babel-scheme-make-session-name source-buffer-name (cdr (assoc :session
params)) impl)) (full-body (org-babel-expand-body:scheme body params)))
(org-babel-scheme-execute-with-geiser full-body (string= result-type "output")
impl (and (not (string= session "none")) session))) (org-babel-pick-name (cdr
(assoc :colname-names params)) (cdr (assoc :colnames params)))
(org-babel-pick-name (cdr (assoc :rowname-names params)) (cdr (assoc :rownames
params)))))
(let* ((source-buffer (current-buffer)) (source-buffer-name
(replace-regexp-in-string "^ ?\\*\\([^*]+\\)\\*" "\\1" (buffer-name
source-buffer)))) (save-excursion (org-babel-reassemble-table (let*
((result-type (cdr (assoc :result-type params))) (impl (or (if ... ...)
geiser-default-implementation (car geiser-active-implementations))) (session
(org-babel-scheme-make-session-name source-buffer-name (cdr ...) impl))
(full-body (org-babel-expand-body:scheme body params)))
(org-babel-scheme-execute-with-geiser full-body (string= result-type "output")
impl (and (not (string= session "none")) session))) (org-babel-pick-name (cdr
(assoc :colname-names params)) (cdr (assoc :colnames params)))
(org-babel-pick-name (cdr (assoc :rowname-names params)) (cdr (assoc :rownames
params))))))
org-babel-execute:scheme("(bool-imply #t #f)" ((:comments . "") (:shebang .
"") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports
. "both") (:results . "replace") (:hlines . "no") (:session . "ch1")
(:result-type . value) (:result-params "replace") (:rowname-names)
(:colname-names)))
funcall(org-babel-execute:scheme "(bool-imply #t #f)" ((:comments . "")
(:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle .
"no") (:exports . "both") (:results . "replace") (:hlines . "no") (:session .
"ch1") (:result-type . value) (:result-params "replace") (:rowname-names)
(:colname-names)))
(let ((result (funcall cmd body params))) (if (and (eq (cdr (assoc
:result-type params)) (quote value)) (or (member "vector" result-params)
(member "table" result-params)) (not (listp result))) (list (list result))
result))
(setq result (let ((result (funcall cmd body params))) (if (and (eq (cdr
(assoc :result-type params)) (quote value)) (or (member "vector" result-params)
(member "table" result-params)) (not (listp result))) (list (list result))
result)))
(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 (assoc :result-type params)) (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 ((temp-file ...) (temp-buffer ...)) (unwind-protect
(prog1 ... ...) (and ... ...))))) (setq result (cdr (assoc :file params)))))
(if (cdr (assoc :post params)) (progn (let ((*this* (if (cdr ...)
(org-babel-result-to-file ... ...) result))) (setq result
(org-babel-ref-resolve (cdr (assoc :post params)))) (if (cdr (assoc :file
params)) (progn (setq result-params (remove "file" result-params)))))))
(org-babel-insert-result result result-params info new-hash indent lang))
(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)) (forward-line)
(skip-chars-forward " ") (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)) (forward-line)
(skip-chars-forward " ") (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)) (forward-line)
(skip-chars-forward " ") (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)) (forward-line)
(skip-chars-forward " ") (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) (and
(org-babel-get-inline-src-block-matches) (match-beginning 0)))) (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 ...) (forward-line) (skip-chars-forward " ")
(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()
(if org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-execute-maybe))
org-babel-execute-safely-maybe()
run-hook-with-args-until-success(org-babel-execute-safely-maybe)
(cond ((or (and (boundp (quote org-clock-overlays)) org-clock-overlays)
org-occur-highlights) (and (boundp (quote org-clock-overlays))
(org-clock-remove-overlays)) (org-remove-occur-highlights) (message "Temporary
highlights/overlays removed from current buffer")) ((and (local-variable-p
(quote org-finish-function) (current-buffer)) (fboundp org-finish-function))
(funcall org-finish-function)) ((run-hook-with-args-until-success (quote
org-ctrl-c-ctrl-c-hook))) (t (if (save-excursion (beginning-of-line)
(looking-at "[ ]*$")) (or (run-hook-with-args-until-success (quote
org-ctrl-c-ctrl-c-final-hook)) (user-error "C-c C-c can do nothing useful at
this location")) (let* ((context (org-element-context)) (type (org-element-type
context))) (cond ((eql type (quote link)) (setq context (org-element-property
:parent context)) (setq type (org-element-type context))) ((memql type (quote
...)) (setq context (org-element-lineage context ...)))) (if (eq type (quote
paragraph)) (progn (let (...) (if ... ...)))) (cond ((eql type (quote clock))
(org-clock-update-time-maybe)) ((eql type (quote dynamic-block))
(save-excursion (goto-char ...) (org-update-dblock))) ((eql type (quote
footnote-definition)) (goto-char (org-element-property :post-affiliated
context)) (call-interactively (quote org-footnote-action))) ((eql type (quote
footnote-reference)) (call-interactively (quote org-footnote-action))) ((memql
type (quote ...)) (save-excursion (goto-char ...) (call-interactively ...)))
((eql type (quote item)) (let* (... ... ... ... ... ...) (org-list-set-checkbox
... struct ...) (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 ... ... ...))) ((eql type (quote
keyword)) (let (... ...) (if ... ...) (let ... ... --rtn)) (message "Local
setup has been refreshed")) ((eql type (quote plain-list)) (let* (... ... ...
... ... ...) (cond ... ...) (org-list-write-struct struct ... old-struct)
(org-update-checkbox-count-maybe) (save-excursion ... ...))) ((memql type
(quote ...)) (call-interactively (quote org-property-action))) ((memql type
(quote ...)) (call-interactively (quote org-update-radio-target-regexp))) ((eql
type (quote statistics-cookie)) (call-interactively (quote
org-update-statistics-cookies))) ((memql type (quote ...)) (if (eq ... ...)
(message "Use C-c ' to edit table.el tables") (let ... ...))) ((eql type (quote
timestamp)) (org-timestamp-change 0 (quote day))) (t (or
(run-hook-with-args-until-success ...) (user-error "C-c C-c can do nothing
useful at this location"))))))))
org-ctrl-c-ctrl-c(nil)
HTH.
--
Nick
