ob-clojure eval error when has comment at end of code line

[Christopher M. Miles]

I have following Clojure source block:

#+begin_src clojure
(re-find #"\d+" "I've just finished reading Fahrenheit 451");; => "451"
(re-find #"Bees" "Beads aren't cheap.");; => nil
#+end_src

When I press =[C-c C-c]= to evaluate source block, got error:

When there is no comments behind code lines. No this error.

#+begin_example
Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  replace-regexp-in-string("nil" "" nil)
  (closure ((result0 "nil" nil "nil" "\"451\"" nil "\"451\"") (result-params 
"replace") (connection . #<buffer *cider-repl Manuals/My Clojure Language 
Syntax Reference:localhost:55604(clj)*>) (params (:colname-names) 
(:rowname-names) (:result-params "replace") (:result-type . value) (:results . 
"replace") (:exports . "") (:session . "none") (:hlines . "no") (:tangle . 
"no") (:cache . "yes") (:mkdirp . "yes") (:show-process . "no") (:noweb . 
"yes") (:eval . "yes")) (expanded . "(re-find #\"\\d+\" \"I've just finished 
reading Fahren...") inf-clojure-comint-prompt-regexp inf-clojure-buffer 
ob-clojure-inf-clojure-tmp-output ob-clojure-inf-clojure-filter-out t) (r) 
(replace-regexp-in-string "nil" "" r))(nil)
  mapcar((closure ((result0 "nil" nil "nil" "\"451\"" nil "\"451\"") 
(result-params "replace") (connection . #<buffer *cider-repl Manuals/My Clojure 
Language Syntax Reference:localhost:55604(clj)*>) (params (:colname-names) 
(:rowname-names) (:result-params "replace") (:result-type . value) (:results . 
"replace") (:exports . "") (:session . "none") (:hlines . "no") (:tangle . 
"no") (:cache . "yes") (:mkdirp . "yes") (:show-process . "no") (:noweb . 
"yes") (:eval . "yes")) (expanded . "(re-find #\"\\d+\" \"I've just finished 
reading Fahren...") inf-clojure-comint-prompt-regexp inf-clojure-buffer 
ob-clojure-inf-clojure-tmp-output ob-clojure-inf-clojure-filter-out t) (r) 
(replace-regexp-in-string "nil" "" r)) ("nil" nil "nil" "\"451\"" nil 
"\"451\""))
  (delete "" (mapcar #'(lambda (r) (replace-regexp-in-string "nil" "" r)) 
result0))
  (reverse (delete "" (mapcar #'(lambda (r) (replace-regexp-in-string "nil" "" 
r)) result0)))
  (ob-clojure-string-or-list (reverse (delete "" (mapcar #'(lambda (r) 
(replace-regexp-in-string "nil" "" r)) result0))))
  (if (not connection) (setq result0 "Please reevaluate when nREPL is 
connected") (let ((temp-buffer (generate-new-buffer " *temp*" t))) 
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (insert 
expanded) (goto-char (point-min)) (while (not (looking-at "\\s-*\\'")) (let* 
(... ... ...) (sit-for 0.1) (let ... ...)))) (and (buffer-name temp-buffer) 
(kill-buffer temp-buffer))))) (ob-clojure-string-or-list (reverse (delete "" 
(mapcar #'(lambda (r) (replace-regexp-in-string "nil" "" r)) result0)))))
  (let ((connection (cider-current-connection (cdr (assq :target params)))) 
(result-params (cdr (assq :result-params params))) result0) (if connection nil 
(sesman-start-session 'CIDER)) (if (not connection) (setq result0 "Please 
reevaluate when nREPL is connected") (let ((temp-buffer (generate-new-buffer " 
*temp*" t))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect 
(progn (insert expanded) (goto-char (point-min)) (while (not ...) (let* ... ... 
...))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) 
(ob-clojure-string-or-list (reverse (delete "" (mapcar #'(lambda ... ...) 
result0))))))
  ob-clojure-eval-with-cider("(re-find #\"\\d+\" \"I've just finished reading 
Fahren..." ((:colname-names) (:rowname-names) (:result-params "replace") 
(:result-type . value) (:results . "replace") (:exports . "") (:session . 
"none") (:hlines . "no") (:tangle . "no") (:cache . "yes") (:mkdirp . "yes") 
(:show-process . "no") (:noweb . "yes") (:eval . "yes")))
  (cond ((eq org-babel-clojure-backend 'inf-clojure) 
(ob-clojure-eval-with-inf-clojure expanded params)) ((eq 
org-babel-clojure-backend 'cider) (ob-clojure-eval-with-cider expanded params)) 
((eq org-babel-clojure-backend 'slime) (ob-clojure-eval-with-slime expanded 
params)))
  (setq result (cond ((eq org-babel-clojure-backend 'inf-clojure) 
(ob-clojure-eval-with-inf-clojure expanded params)) ((eq 
org-babel-clojure-backend 'cider) (ob-clojure-eval-with-cider expanded params)) 
((eq org-babel-clojure-backend 'slime) (ob-clojure-eval-with-slime expanded 
params))))
  (let* ((expanded (org-babel-expand-body:clojure body params)) (result-params 
(cdr (assq :result-params params))) result) (setq result (cond ((eq 
org-babel-clojure-backend 'inf-clojure) (ob-clojure-eval-with-inf-clojure 
expanded params)) ((eq org-babel-clojure-backend 'cider) 
(ob-clojure-eval-with-cider expanded params)) ((eq org-babel-clojure-backend 
'slime) (ob-clojure-eval-with-slime expanded params)))) (let ((--params 
result-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 (condition-case 
nil (org-babel-script-escape result) (error result))))))
  org-babel-execute:clojure("(re-find #\"\\d+\" \"I've just finished reading 
Fahren..." ((:colname-names) (:rowname-names) (:result-params "replace") 
(:result-type . value) (:results . "replace") (:exports . "") (:session . 
"none") (:hlines . "no") (:tangle . "no") (:cache . "yes") (:mkdirp . "yes") 
(:show-process . "no") (:noweb . "yes") (:eval . "yes")))
  funcall(org-babel-execute:clojure "(re-find #\"\\d+\" \"I've just finished 
reading Fahren..." ((:colname-names) (:rowname-names) (:result-params 
"replace") (:result-type . value) (:results . "replace") (:exports . "") 
(:session . "none") (:hlines . "no") (:tangle . "no") (:cache . "yes") (:mkdirp 
. "yes") (:show-process . "no") (:noweb . "yes") (:eval . "yes")))
  (let ((r (funcall cmd body params))) (if (and (eq (cdr (assq :result-type 
params)) '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)) '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)) 'value) (or (member "vector" 
result-params) (member "table" result-params)) (not (listp r))) (list (list r)) 
r))) (let ((file (and (member "file" result-params) (cdr (assq :file 
params))))) (if file (progn (if (and result (not (or ... ...))) (progn (let 
(... ...) (unwind-protect ... ...)) (if (assq :file-mode params) (progn ...)))) 
(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 (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp 
(cdr (assq :mkdirp params))) (default-directory (cond ((not dir) 
default-directory) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory 
(expand-file-name dir))) (t (let ((d ...)) (make-directory d 'parents) d)))) 
(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 ...) 'value) (or (member "vector" result-params) 
(member "table" result-params)) (not (listp r))) (list (list r)) r))) (let 
((file (and (member "file" result-params) (cdr (assq :file params))))) (if file 
(progn (if (and result (not ...)) (progn (let ... ...) (if ... ...))) (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 '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 " \11") (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 (org-babel--expand-body info)) (dir 
(cdr (assq :dir params))) (mkdirp (cdr (assq :mkdirp params))) 
(default-directory (cond ((not dir) default-directory) ((member mkdirp ...) 
(file-name-as-directory ...)) (t (let ... ... d)))) (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 (and ... ...))) (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 
'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 :eval))) (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 " \11") (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 
(org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr 
(assq :mkdirp params))) (default-directory (cond (... default-directory) (... 
...) (t ...))) (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 '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 :eval))) 
(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 " \11") (let ((result ...)) (message 
(replace-regexp-in-string "%" "%%" ...)) result))) ((org-babel-confirm-evaluate 
info) (let* ((lang (nth 0 info)) (result-params (cdr ...)) (body 
(org-babel--expand-body info)) (dir (cdr ...)) (mkdirp (cdr ...)) 
(default-directory (cond ... ... ...)) (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 '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 :eval))) (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 " \11") (let (...) (message ...) result))) 
((org-babel-confirm-evaluate info) (let* ((lang ...) (result-params ...) (body 
...) (dir ...) (mkdirp ...) (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 '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 :eval))) (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 " \11") (let ... ... result))) 
((org-babel-confirm-evaluate info) (let* (... ... ... ... ... ... ... result) 
(if ... nil ...) (message "executing %s code block%s..." ... ...) (if ... ... 
... ...) (run-hooks ...) result)))))))
  (closure (*this* org-babel-confirm-evaluate-answer-no 
org-babel-tangle-uncomment-comments org-src-preserve-indentation 
org-src-lang-modes org-edit-src-content-indentation org-babel-library-of-babel 
t) (&optional arg info params) "Execute the current source code block.\nInsert 
the ..." (interactive) (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 ...)) (setcar c (org-babel-process-params ...))) (let* 
((params ...) (cache ...) (new-hash ...) (old-hash ...) (current-cache ...)) 
(cond (current-cache ...) (... ...)))))))(nil ("clojure" "(re-find #\"\\d+\" 
\"I've just finished reading Fahren..." ((:colname-names) (:rowname-names) 
(:result-params "replace") (:result-type . value) (:results . "replace") 
(:exports . "") (:eval . "yes") (:noweb . "yes") (:show-process . "no") 
(:mkdirp . "yes") (:cache . "yes") (:tangle . "no") (:hlines . "no") (:session 
. "none")) "" nil 100164 "(ref:%s)") nil)
  ob-async-org-babel-execute-src-block((closure (*this* 
org-babel-confirm-evaluate-answer-no org-babel-tangle-uncomment-comments 
org-src-preserve-indentation org-src-lang-modes 
org-edit-src-content-indentation org-babel-library-of-babel t) (&optional arg 
info params) "Execute the current source code block.\nInsert the ..." 
(interactive) (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 ...)) (setcar c (org-babel-process-params ...))) (let* 
((params ...) (cache ...) (new-hash ...) (old-hash ...) (current-cache ...)) 
(cond (current-cache ...) (... ...))))))) nil ("clojure" "(re-find #\"\\d+\" 
\"I've just finished reading Fahren..." ((:colname-names) (:rowname-names) 
(:result-params "replace") (:result-type . value) (:results . "replace") 
(:exports . "") (:eval . "yes") (:noweb . "yes") (:show-process . "no") 
(:mkdirp . "yes") (:cache . "yes") (:tangle . "no") (:hlines . "no") (:session 
. "none")) "" nil 100164 "(ref:%s)"))
  apply(ob-async-org-babel-execute-src-block (closure (*this* 
org-babel-confirm-evaluate-answer-no org-babel-tangle-uncomment-comments 
org-src-preserve-indentation org-src-lang-modes 
org-edit-src-content-indentation org-babel-library-of-babel t) (&optional arg 
info params) "Execute the current source code block.\nInsert the ..." 
(interactive) (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 ...)) (setcar c (org-babel-process-params ...))) (let* 
((params ...) (cache ...) (new-hash ...) (old-hash ...) (current-cache ...)) 
(cond (current-cache ...) (... ...))))))) (nil ("clojure" "(re-find #\"\\d+\" 
\"I've just finished reading Fahren..." ((:colname-names) (:rowname-names) 
(:result-params "replace") (:result-type . value) (:results . "replace") 
(:exports . "") (:eval . "yes") (:noweb . "yes") (:show-process . "no") 
(:mkdirp . "yes") (:cache . "yes") (:tangle . "no") (:hlines . "no") (:session 
. "none")) "" nil 100164 "(ref:%s)")))
  org-babel-execute-src-block(nil ("clojure" "(re-find #\"\\d+\" \"I've just 
finished reading Fahren..." ((:colname-names) (:rowname-names) (:result-params 
"replace") (:result-type . value) (:results . "replace") (:exports . "") (:eval 
. "yes") (:noweb . "yes") (:show-process . "no") (:mkdirp . "yes") (:cache . 
"yes") (:tangle . "no") (:hlines . "no") (:session . "none")) "" nil 100164 
"(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 '(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 "[ \11]*$") (let nil (or 
(run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user-error 
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful 
here"))))) ((memq type '(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 'clock) (let nil (org-clock-update-time-maybe))) ((eq 
type 'dynamic-block) (let nil (save-excursion (goto-char (org-element-property 
:post-affiliated context)) (org-update-dblock)))) ((eq type 
'footnote-definition) (let nil (goto-char (org-element-property 
:post-affiliated context)) (call-interactively 'org-footnote-action))) ((eq 
type 'footnote-reference) (let nil (call-interactively #'org-footnote-action))) 
((memq type '(inlinetask headline)) (let nil (save-excursion (goto-char 
(org-element-property :begin context)) (call-interactively 
#'org-set-tags-command)))) ((eq type 'item) (let nil (if (or radio-list-p (and 
(boundp org-list-checkbox-radio-mode) org-list-checkbox-radio-mode)) 
(org-toggle-radio-button arg) (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 
'plain-list) (let nil (if (or radio-list-p (and (boundp 
org-list-checkbox-radio-mode) org-list-checkbox-radio-mode)) 
(org-toggle-radio-button arg) (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))))) ((eq 
type 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff t) 
(org-startup-align-all-tables nil)) (if (boundp 'org-table-coordinate-overlays) 
(progn (mapc #'delete-overlay org-table-coordinate-overlays) (setq 
org-table-coordinate-overlays nil))) (let* ((--invisible-types '...) 
(--markers\? 'use-markers) (--data (mapcar ... ...))) (unwind-protect (progn 
(org-mode-restart)) (save-excursion (save-restriction ... ... ...))))) (message 
"Local setup has been refreshed"))) ((memq type '(node-property 
property-drawer)) (let nil (call-interactively #'org-property-action))) ((eq 
type 'radio-target) (let nil (call-interactively 
#'org-update-radio-target-regexp))) ((eq type 'statistics-cookie) (let nil 
(call-interactively #'org-update-statistics-cookies))) ((memq type '(table-row 
table-cell table)) (let nil (cond ((and (org-match-line "[ \11]*#\\+plot:") (< 
(point) (org-element-property :post-affiliated context))) (org-plot/gnuplot)) 
((eq (org-element-property :type context) 'table\.el) (message "%s" 
(substitute-command-keys "\\<org-mode-map>Use `\\[org-edit-special]' to edit 
t..."))) ((or (eq type 'table) (and (eq type ...) (= ... ...))) (save-excursion 
(if (org-at-TBLFM-p) (progn ... ...) (goto-char ...) (org-call-with-arg ... 
...) (orgtbl-send-table ...)))) (t (org-table-maybe-eval-formula) (cond (arg 
(call-interactively ...)) ((org-table-maybe-recalculate-line)) (t 
(org-table-align))))))) ((eq type 'timestamp) (funcall pcase-1)) ((eq type 
'planning) (cond ((org-at-timestamp-p 'lax) (funcall pcase-1)) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t 
(funcall pcase-0)))) ((null type) (cond ((org-at-heading-p) (let nil 
(call-interactively #'org-set-tags-command))) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t 
(funcall pcase-0)))) ((run-hook-with-args-until-success 
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))
  (let* ((pcase-1 #'(lambda nil (org-timestamp-change 0 'day))) (pcase-0 
#'(lambda nil (user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can 
do nothing useful here"))))) (cond ((memq type '(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 "[ \11]*$") (let nil (or (run-hook-with-args-until-success 
'org-ctrl-c-ctrl-c-final-hook) (user-error (substitute-command-keys 
"`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) ((memq type 
'(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 'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'dynamic-block) 
(let nil (save-excursion (goto-char (org-element-property :post-affiliated 
context)) (org-update-dblock)))) ((eq type 'footnote-definition) (let nil 
(goto-char (org-element-property :post-affiliated context)) (call-interactively 
'org-footnote-action))) ((eq type 'footnote-reference) (let nil 
(call-interactively #'org-footnote-action))) ((memq type '(inlinetask 
headline)) (let nil (save-excursion (goto-char (org-element-property :begin 
context)) (call-interactively #'org-set-tags-command)))) ((eq type 'item) (let 
nil (if (or radio-list-p (and (boundp org-list-checkbox-radio-mode) 
org-list-checkbox-radio-mode)) (org-toggle-radio-button arg) (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 'plain-list) (let nil (if (or radio-list-p (and 
(boundp org-list-checkbox-radio-mode) org-list-checkbox-radio-mode)) 
(org-toggle-radio-button arg) (let* ((begin ...) (struct ...) (old-struct ...) 
(first-box ...) (new-box ...)) (cond (arg ...) (... ...)) (if (equal ... 
old-struct) (progn ...)) (org-update-checkbox-count-maybe))))) ((eq type 
'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff t) 
(org-startup-align-all-tables nil)) (if (boundp '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"))) ((memq type 
'(node-property property-drawer)) (let nil (call-interactively 
#'org-property-action))) ((eq type 'radio-target) (let nil (call-interactively 
#'org-update-radio-target-regexp))) ((eq type 'statistics-cookie) (let nil 
(call-interactively #'org-update-statistics-cookies))) ((memq type '(table-row 
table-cell table)) (let nil (cond ((and (org-match-line "[ \11]*#\\+plot:") (< 
... ...)) (org-plot/gnuplot)) ((eq (org-element-property :type context) 
'table\.el) (message "%s" (substitute-command-keys "\\<org-mode-map>Use 
`\\[org-edit-special]' to edit t..."))) ((or (eq type ...) (and ... ...)) 
(save-excursion (if ... ... ... ... ...))) (t (org-table-maybe-eval-formula) 
(cond (arg ...) (...) (t ...)))))) ((eq type 'timestamp) (funcall pcase-1)) 
((eq type 'planning) (cond ((org-at-timestamp-p 'lax) (funcall pcase-1)) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t 
(funcall pcase-0)))) ((null type) (cond ((org-at-heading-p) (let nil 
(call-interactively #'org-set-tags-command))) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t 
(funcall pcase-0)))) ((run-hook-with-args-until-success 
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0))))
  (let* ((context (org-element-lineage (org-element-context) '(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)) (radio-list-p (org-at-radio-list-p)) (type 
(org-element-type context))) (if (eq type 'paragraph) (progn (let ((parent 
(org-element-property :parent context))) (if (and (eq (org-element-type parent) 
'item) (= (line-beginning-position) (org-element-property :begin parent))) 
(progn (setq context parent) (setq type 'item)))))) (let* ((pcase-1 #'(lambda 
nil (org-timestamp-change 0 'day))) (pcase-0 #'(lambda nil (user-error 
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful 
here"))))) (cond ((memq type '(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 "[ \11]*$") (let nil (or 
(run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user-error 
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful 
here"))))) ((memq type '(inline-babel-call babel-call)) (let nil (let ((info 
...)) (if info (progn ...))))) ((eq type 'clock) (let nil 
(org-clock-update-time-maybe))) ((eq type 'dynamic-block) (let nil 
(save-excursion (goto-char (org-element-property :post-affiliated context)) 
(org-update-dblock)))) ((eq type 'footnote-definition) (let nil (goto-char 
(org-element-property :post-affiliated context)) (call-interactively 
'org-footnote-action))) ((eq type 'footnote-reference) (let nil 
(call-interactively #'org-footnote-action))) ((memq type '(inlinetask 
headline)) (let nil (save-excursion (goto-char (org-element-property :begin 
context)) (call-interactively #'org-set-tags-command)))) ((eq type 'item) (let 
nil (if (or radio-list-p (and ... org-list-checkbox-radio-mode)) 
(org-toggle-radio-button arg) (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 ... ... ...))))) ((eq type 
'plain-list) (let nil (if (or radio-list-p (and ... 
org-list-checkbox-radio-mode)) (org-toggle-radio-button arg) (let* (... ... ... 
... ...) (cond ... ...) (if ... ...) (org-update-checkbox-count-maybe))))) ((eq 
type '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"))) ((memq type '(node-property property-drawer)) (let nil 
(call-interactively #'org-property-action))) ((eq type 'radio-target) (let nil 
(call-interactively #'org-update-radio-target-regexp))) ((eq type 
'statistics-cookie) (let nil (call-interactively 
#'org-update-statistics-cookies))) ((memq type '(table-row table-cell table)) 
(let nil (cond ((and ... ...) (org-plot/gnuplot)) ((eq ... ...) (message "%s" 
...)) ((or ... ...) (save-excursion ...)) (t (org-table-maybe-eval-formula) 
(cond ... ... ...))))) ((eq type 'timestamp) (funcall pcase-1)) ((eq type 
'planning) (cond ((org-at-timestamp-p 'lax) (funcall pcase-1)) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t 
(funcall pcase-0)))) ((null type) (cond ((org-at-heading-p) (let nil 
(call-interactively ...))) ((run-hook-with-args-until-success 
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t 
(funcall pcase-0)))))
  (cond ((and (boundp 'org-columns-overlays) org-columns-overlays) 
(org-columns-quit)) ((or (and (boundp 'org-clock-overlays) org-clock-overlays) 
org-occur-highlights) (if (boundp 'org-clock-overlays) (progn 
(org-clock-remove-overlays))) (org-remove-occur-highlights) (message "Temporary 
highlights/overlays removed from current...")) ((and (local-variable-p 
'org-finish-function) (fboundp org-finish-function)) (funcall 
org-finish-function)) ((org-babel-hash-at-point)) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-hook)) (t (let* ((context 
(org-element-lineage (org-element-context) '(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)) (radio-list-p (org-at-radio-list-p)) (type 
(org-element-type context))) (if (eq type 'paragraph) (progn (let ((parent 
...)) (if (and ... ...) (progn ... ...))))) (let* ((pcase-1 #'(lambda nil ...)) 
(pcase-0 #'(lambda nil ...))) (cond ((memq type '...) (let nil (if 
org-babel-no-eval-on-ctrl-c-ctrl-c nil ... ...))) ((org-match-line "[ \11]*$") 
(let nil (or ... ...))) ((memq type '...) (let nil (let ... ...))) ((eq type 
'clock) (let nil (org-clock-update-time-maybe))) ((eq type 'dynamic-block) (let 
nil (save-excursion ... ...))) ((eq type 'footnote-definition) (let nil 
(goto-char ...) (call-interactively ...))) ((eq type 'footnote-reference) (let 
nil (call-interactively ...))) ((memq type '...) (let nil (save-excursion ... 
...))) ((eq type 'item) (let nil (if ... ... ...))) ((eq type 'plain-list) (let 
nil (if ... ... ...))) ((eq type 'keyword) (let nil (let ... ... ...) (message 
"Local setup has been refreshed"))) ((memq type '...) (let nil 
(call-interactively ...))) ((eq type 'radio-target) (let nil 
(call-interactively ...))) ((eq type 'statistics-cookie) (let nil 
(call-interactively ...))) ((memq type '...) (let nil (cond ... ... ... ...))) 
((eq type 'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond (... ...) 
(... ...) (t ...))) ((null type) (cond (... ...) (... ...) (t ...))) 
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t 
(funcall pcase-0)))))))
  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)

#+end_example

-- 
[ stardiviner ]
       I try to make every word tell the meaning that I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

signature.asc
Description: PGP signature