From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nick Dokos Subject: Re: Scheme code block gives false error message Date: Sun, 13 Sep 2015 01:41:07 -0400 Message-ID: <877fnuj2q4.fsf@pierrot.dokosmarshall.org> References: Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:39025) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zb02e-00037f-VC for emacs-orgmode@gnu.org; Sun, 13 Sep 2015 01:41:35 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Zb02b-0007XL-MG for emacs-orgmode@gnu.org; Sun, 13 Sep 2015 01:41:32 -0400 Received: from plane.gmane.org ([80.91.229.3]:46993) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Zb02b-0007TI-9R for emacs-orgmode@gnu.org; Sun, 13 Sep 2015 01:41:29 -0400 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1Zb02Y-0000mX-E1 for emacs-orgmode@gnu.org; Sun, 13 Sep 2015 07:41:26 +0200 Received: from pool-108-20-41-232.bstnma.fios.verizon.net ([108.20.41.232]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 13 Sep 2015 07:41:26 +0200 Received: from ndokos by pool-108-20-41-232.bstnma.fios.verizon.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Sun, 13 Sep 2015 07:41:26 +0200 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-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Lawrence Bottorff 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). --=-=-= Content-Type: text/plain Content-Disposition: attachment; filename=scheme.backtrace Content-Transfer-Encoding: quoted-printable Content-Description: backtrace read("#f") (if (or (string=3D result "#") (string=3D result "#"))= nil (read result)) (setq result (if (or (string=3D result "#") (string=3D result "#")) nil (read result))) (let ((repl-buffer (save-current-buffer (org-babel-scheme-get-repl impl r= epl)))) (if (not (eq impl (org-babel-scheme-get-buffer-impl (current-buffer= )))) (progn (message "Implementation mismatch: %s (%s) %s (%s)" impl (symbo= lp 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 nonint= eractive (let ((original-message (symbol-function (quote message))) (curren= t-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) (eq= ual (substring result 0 3) "=3D> ")) (replace-regexp-in-string "^=3D> " "" = result) "\"An error occurred.\"")) (if (not repl) (progn (save-current-buff= er (set-buffer repl-buffer) (geiser-repl-exit)) (set-process-query-on-exit-= flag (get-buffer-process repl-buffer) nil) (kill-buffer repl-buffer))) (set= q result (if (or (string=3D result "#") (string=3D result "#")) 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 (o= rg-babel-scheme-get-repl impl repl)))) (if (not (eq impl (org-babel-scheme-= get-buffer-impl (current-buffer)))) (progn (message "Implementation mismatc= h: %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--implementati= on nil) (setq result (if noninteractive (let ((original-message (symbol-fun= ction ...)) (current-message nil)) (unwind-protect (progn (defalias ... ...= ) (geiser-eval-region ... ...) current-message) (fset (quote message) origi= nal-message))) (progn (geiser-eval-region (point-min) (point-max)) (current= -message)))) (setq result (if (and (stringp result) (equal (substring resul= t 0 3) "=3D> ")) (replace-regexp-in-string "^=3D> " "" 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-pro= cess repl-buffer) nil) (kill-buffer repl-buffer))) (setq result (if (or (st= ring=3D result "#") (string=3D result "#")) nil (read re= sult))))) (unwind-protect (progn (insert (format ";; -*- geiser-scheme-implementati= on: %s -*-" impl)) (newline) (insert (if output (format "(with-output-to-st= ring (lambda () %s))" code) code)) (geiser-mode) (let ((repl-buffer (save-c= urrent-buffer (org-babel-scheme-get-repl impl repl)))) (if (not (eq impl (o= rg-babel-scheme-get-buffer-impl (current-buffer)))) (progn (message "Implem= entation mismatch: %s (%s) %s (%s)" impl (symbolp impl) (org-babel-scheme-g= et-buffer-impl (current-buffer)) (symbolp (org-babel-scheme-get-buffer-impl= ...))))) (setq geiser-repl--repl repl-buffer) (setq geiser-impl--implement= ation nil) (setq result (if noninteractive (let ((original-message ...) (cu= rrent-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 (substri= ng result 0 3) "=3D> ")) (replace-regexp-in-string "^=3D> " "" result) "\"A= n error occurred.\"")) (if (not repl) (progn (save-current-buffer (set-buff= er repl-buffer) (geiser-repl-exit)) (set-process-query-on-exit-flag (get-bu= ffer-process repl-buffer) nil) (kill-buffer repl-buffer))) (setq result (if= (or (string=3D result "#") (string=3D result "#")) nil = (read result))))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (ins= ert (format ";; -*- geiser-scheme-implementation: %s -*-" impl)) (newline) = (insert (if output (format "(with-output-to-string (lambda () %s))" code) c= ode)) (geiser-mode) (let ((repl-buffer (save-current-buffer (org-babel-sche= me-get-repl impl repl)))) (if (not (eq impl (org-babel-scheme-get-buffer-im= pl ...))) (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) (set= q result (if noninteractive (let (... ...) (unwind-protect ... ...)) (progn= (geiser-eval-region ... ...) (current-message)))) (setq result (if (and (s= tringp result) (equal ... "=3D> ")) (replace-regexp-in-string "^=3D> " "" r= esult) "\"An error occurred.\"")) (if (not repl) (progn (save-current-buffe= r (set-buffer repl-buffer) (geiser-repl-exit)) (set-process-query-on-exit-f= lag (get-buffer-process repl-buffer) nil) (kill-buffer repl-buffer))) (setq= result (if (or (string=3D result "#") (string=3D result "#")) nil (read result))))) (and (buffer-name temp-buffer) (kill-buffer te= mp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer= (set-buffer temp-buffer) (unwind-protect (progn (insert (format ";; -*- ge= iser-scheme-implementation: %s -*-" impl)) (newline) (insert (if output (fo= rmat "(with-output-to-string (lambda () %s))" code) code)) (geiser-mode) (l= et ((repl-buffer (save-current-buffer ...))) (if (not (eq impl ...)) (progn= (message "Implementation mismatch: %s (%s) %s (%s)" impl ... ... ...))) (s= etq geiser-repl--repl repl-buffer) (setq geiser-impl--implementation nil) (= setq result (if noninteractive (let ... ...) (progn ... ...))) (setq result= (if (and ... ...) (replace-regexp-in-string "^=3D> " "" result) "\"An erro= r occurred.\"")) (if (not repl) (progn (save-current-buffer ... ...) (set-p= rocess-query-on-exit-flag ... nil) (kill-buffer repl-buffer))) (setq result= (if (or ... ...) nil (read result))))) (and (buffer-name temp-buffer) (kil= l-buffer temp-buffer))))) (let ((result nil)) (let ((temp-buffer (generate-new-buffer " *temp*"))) = (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (inser= t (format ";; -*- geiser-scheme-implementation: %s -*-" impl)) (newline) (i= nsert (if output (format "(with-output-to-string (lambda () %s))" code) cod= e)) (geiser-mode) (let ((repl-buffer ...)) (if (not ...) (progn ...)) (setq= geiser-repl--repl repl-buffer) (setq geiser-impl--implementation nil) (set= q 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))))) resul= t) 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-impleme= ntation (car geiser-active-implementations))) (session (org-babel-scheme-ma= ke-session-name source-buffer-name (cdr (assoc :session params)) impl)) (fu= ll-body (org-babel-expand-body:scheme body params))) (org-babel-scheme-exec= ute-with-geiser full-body (string=3D result-type "output") impl (and (not (= string=3D 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))) (sessio= n (org-babel-scheme-make-session-name source-buffer-name (cdr (assoc :sessi= on params)) impl)) (full-body (org-babel-expand-body:scheme body params))) = (org-babel-scheme-execute-with-geiser full-body (string=3D result-type "out= put") impl (and (not (string=3D 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 :rownam= es params)))) (save-excursion (org-babel-reassemble-table (let* ((result-type (cdr (ass= oc :result-type params))) (impl (or (if (cdr ...) (progn ...)) geiser-defau= lt-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-s= cheme-execute-with-geiser full-body (string=3D result-type "output") impl (= and (not (string=3D session "none")) session))) (org-babel-pick-name (cdr (= assoc :colname-names params)) (cdr (assoc :colnames params))) (org-babel-pi= ck-name (cdr (assoc :rowname-names params)) (cdr (assoc :rownames params)))= )) (let* ((source-buffer (current-buffer)) (source-buffer-name (replace-rege= xp-in-string "^ ?\\*\\([^*]+\\)\\*" "\\1" (buffer-name source-buffer)))) (s= ave-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-sessi= on-name source-buffer-name (cdr ...) impl)) (full-body (org-babel-expand-bo= dy:scheme body params))) (org-babel-scheme-execute-with-geiser full-body (s= tring=3D result-type "output") impl (and (not (string=3D session "none")) s= ession))) (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (as= soc :colnames params))) (org-babel-pick-name (cdr (assoc :rowname-names par= ams)) (cdr (assoc :rownames params)))))) org-babel-execute:scheme("(bool-imply #t #f)" ((:comments . "") (:shebang= . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:e= xports . "both") (:results . "replace") (:hlines . "no") (:session . "ch1")= (:result-type . value) (:result-params "replace") (:rowname-names) (:colna= me-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 :resul= t-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-par= ams) (member "table" result-params)) (not (listp result))) (list (list resu= lt)) result))) (if (member "none" result-params) (progn (funcall cmd body params) (messa= ge "result silenced") (setq result nil)) (setq result (let ((result (funcal= l 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-ba= bel-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 o= rg-babel-tramp-handle-call-process-region) args))))) (let ((lang-check (fun= ction (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 resu= lt (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-re= solve (cdr ...))) (if (cdr (assoc :file params)) (progn (setq result-params= ...)))))) (org-babel-insert-result result result-params info new-hash inde= nt 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 or= g-babel-execute function for %s!" lang)))) (message "executing %s code bloc= k%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) ""= )) (if (member "none" result-params) (progn (funcall cmd body params) (mess= age "result silenced") (setq result nil)) (setq result (let ((result (funca= ll cmd body params))) (if (and (eq ... ...) (or ... ...) (not ...)) (list (= list result)) result))) (if (cdr (assoc :file params)) (progn (if result (p= rogn (let ... ...))) (setq result (cdr (assoc :file params))))) (if (cdr (a= ssoc :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-afte= r-execute-hook)) result) (setq call-process-region (quote org-babel-call-pr= ocess-region-original))) (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-params para= ms))) (body (let* ((c (nthcdr 1 info))) (setcar c (if (org-babel-noweb-p pa= rams :eval) (org-babel-expand-noweb-references info) (nth 1 info))))) (dir = (cdr (assoc :dir params))) (default-directory (or (and dir (file-name-as-di= rectory (expand-file-name dir))) default-directory)) (org-babel-call-proces= s-region-original (or (and (boundp (quote org-babel-call-process-region-ori= ginal)) org-babel-call-process-region-original) (symbol-function (quote cal= l-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-ex= ecute function for %s!" lang)))) (message "executing %s code block%s..." (c= apitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 info)) "")) (if (me= mber "none" result-params) (progn (funcall cmd body params) (message "resul= t 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-res= ult result result-params info new-hash indent lang)) (run-hooks (quote org-= babel-after-execute-hook)) result) (setq call-process-region (quote org-bab= el-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 ((re= sult (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))) (def= ault-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-re= gion (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 resu= lt (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=3D "yes= " (cdr (assoc :cache params))))) (new-hash (if cachep (progn (org-babel-sha= 1-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-bl= ock-result nil info)) (forward-line) (skip-chars-forward " ") (let ((resul= t (org-babel-read-result))) (message (replace-regexp-in-string "%" "%%" (fo= rmat "%S" result))) result))) ((org-babel-confirm-evaluate (let ((i info)) = (let* ((c ...)) (setcar c merged-params)) i)) (let* ((lang (nth 0 info)) (r= esult-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..." (capitali= ze lang) (if ... ... "")) (if (member "none" result-params) (progn ... ... = ...) (setq result ...) (if ... ...) (if ... ...) (org-babel-insert-result r= esult result-params info new-hash indent lang)) (run-hooks (quote org-babel= -after-execute-hook)) result) (setq call-process-region (quote org-babel-ca= ll-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= =3D "yes" (cdr (assoc :cache params))))) (new-hash (if cachep (progn (org-b= abel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-current-resu= lt-hash)))) (cache-current-p (and (not arg) new-hash (equal new-hash old-ha= sh)))) (cond (cache-current-p (save-excursion (goto-char (org-babel-where-i= s-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 (le= t* ... ...)) (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 ...) r= esult) (setq call-process-region (quote org-babel-call-process-region-origi= nal)))))))) (if (org-babel-check-evaluate (let ((i info)) (let* ((c (nthcdr 2 i))) (s= etcar c merged-params)) i)) (progn (let* ((params (if params (org-babel-pro= cess-params merged-params) (nth 2 info))) (cachep (and (not arg) (cdr (asso= c :cache params)) (string=3D "yes" (cdr ...)))) (new-hash (if cachep (progn= (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babel-curre= nt-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-bl= ock-location (nth 6 info) (org-babel-where-is-src-block-head) (and (org-bab= el-get-inline-src-block-matches) (match-beginning 0)))) (info (if info (cop= y-tree info) (org-babel-get-src-block-info))) (merged-params (org-babel-mer= ge-params (nth 2 info) params))) (if (org-babel-check-evaluate (let ((i inf= o)) (let* ((c (nthcdr 2 i))) (setcar c merged-params)) i)) (progn (let* ((p= arams (if params (org-babel-process-params merged-params) (nth 2 info))) (c= achep (and (not arg) (cdr ...) (string=3D "yes" ...))) (new-hash (if cachep= (progn ...))) (old-hash (if cachep (progn ...))) (cache-current-p (and (no= t arg) new-hash (equal new-hash old-hash)))) (cond (cache-current-p (save-e= xcursion (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 cu= rrent-prefix-arg) t) (if (or (org-babel-where-is-src-block-head) (org-babel-get-inline-src-blo= ck-matches)) (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-s= rc-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) o= rg-occur-highlights) (and (boundp (quote org-clock-overlays)) (org-clock-re= move-overlays)) (org-remove-occur-highlights) (message "Temporary highlight= s/overlays removed from current buffer")) ((and (local-variable-p (quote or= g-finish-function) (current-buffer)) (fboundp org-finish-function)) (funcal= l 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-fina= l-hook)) (user-error "C-c C-c can do nothing useful at this location")) (le= t* ((context (org-element-context)) (type (org-element-type context))) (con= d ((eql type (quote link)) (setq context (org-element-property :parent cont= ext)) (setq type (org-element-type context))) ((memql type (quote ...)) (se= tq context (org-element-lineage context ...)))) (if (eq type (quote paragra= ph)) (progn (let (...) (if ... ...)))) (cond ((eql type (quote clock)) (org= -clock-update-time-maybe)) ((eql type (quote dynamic-block)) (save-excursio= n (goto-char ...) (org-update-dblock))) ((eql type (quote footnote-definiti= on)) (goto-char (org-element-property :post-affiliated context)) (call-inte= ractively (quote org-footnote-action))) ((eql type (quote footnote-referenc= e)) (call-interactively (quote org-footnote-action))) ((memql type (quote .= ..)) (save-excursion (goto-char ...) (call-interactively ...))) ((eql type = (quote item)) (let* (... ... ... ... ... ...) (org-list-set-checkbox ... st= ruct ...) (org-list-struct-fix-ind struct parents 2) (org-list-struct-fix-i= tem-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 r= efreshed")) ((eql type (quote plain-list)) (let* (... ... ... ... ... ...) = (cond ... ...) (org-list-write-struct struct ... old-struct) (org-update-ch= eckbox-count-maybe) (save-excursion ... ...))) ((memql type (quote ...)) (c= all-interactively (quote org-property-action))) ((memql type (quote ...)) (= call-interactively (quote org-update-radio-target-regexp))) ((eql type (quo= te statistics-cookie)) (call-interactively (quote org-update-statistics-coo= kies))) ((memql type (quote ...)) (if (eq ... ...) (message "Use C-c ' to e= dit table.el tables") (let ... ...))) ((eql type (quote timestamp)) (org-ti= mestamp-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) --=-=-= Content-Type: text/plain HTH. -- Nick --=-=-=--