From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer M Krug Subject: Bug: can not evaluate any code blocks after enabling additional languages [8.3.4 (release_8.3.4-639-gd5a603 @ /Users/rainerkrug/.emacs.d/elpa/25.0/org-20151005/)] Date: Thu, 10 Mar 2016 12:44:16 +0100 Message-ID: Mime-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:57135) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1adz18-00079U-A5 for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 06:44:36 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1adz14-0004Vy-Vu for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 06:44:34 -0500 Received: from mail-wm0-f49.google.com ([74.125.82.49]:38726) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1adz14-0004VV-MJ for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 06:44:30 -0500 Received: by mail-wm0-f49.google.com with SMTP id l68so24848687wml.1 for ; Thu, 10 Mar 2016 03:44:30 -0800 (PST) Received: from Rainers-MacBook-Pro.local ([2a01:e35:8baa:b070:2087:2678:f511:7ab0]) by smtp.gmail.com with ESMTPSA id 82sm3150377wmd.4.2016.03.10.03.44.26 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 10 Mar 2016 03:44:27 -0800 (PST) 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 Content-Transfer-Encoding: quoted-printable * Configuration Org-mode version 8.3.4 (release_8.3.4-639-gd5a603 @ /Users/rainerkrug/.emac= s.d/elpa/25.0/org-20151005/) GNU Emacs 25.0.92.1 (x86_64-apple-darwin15.3.0, NS appkit-1404.34 Version 1= 0.11.3 (Build 15D21)) of 2016-03-07 init.el: ,---- | (setq package-user-dir (concat "~/.emacs.d/elpa/" | ;; if we use emacs-version we get a | ;; LOT of pre-release directories. | (int-to-string emacs-major-version) | "." | (int-to-string emacs-minor-version))) | (add-to-list 'Info-default-directory-list "~/.emacs.d/ess/doc") | (add-to-list 'Info-default-directory-list "~/.emacs.d/org-mode/doc") | (defadvice desktop-restore-file-buffer | (around my-desktop-restore-file-buffer-advice) | "Be non-interactive while starting a daemon." | (if (and (daemonp) | (not server-process)) | (let ((noninteractive t)) | ad-do-it) | ad-do-it)) | (ad-activate 'desktop-restore-file-buffer) |=20 |=20 | (add-to-list 'load-path "~/.emacs.d/org-mode/lisp") | (add-to-list 'load-path "~/.emacs.d/org-mode/contrib/lisp") | (require 'org) |=20 | (setq package-archives '( | ("ELPA" . "http://tromey.com/elpa/") | ("Melpa" . "http://melpa.org/packages/") | ("org" . "http://orgmode.org/elpa/") | ("gnu" . "http://elpa.gnu.org/packages/"))) |=20 | (require 'package) | (package-initialize) |=20 | (unless (package-installed-p 'use-package) | (package-refresh-contents) | (package-install 'use-package)) | (setq use-package-verbose t) | (require 'use-package) | (setq use-package-verbose t) `---- * The problem This works: #+begin_src emacs-lisp=20 (message "4")=20 #+end_src #+RESULTS: : 4 Let's enable some more languages: #+begin_src emacs-lisp=20 (org-babel-do-load-languages 'org-babel-load-languages '((emacs-lisp . nil) (R . t) (sh . t))) #+end_src #+RESULTS: And try again: #+begin_src emacs-lisp=20 (message "4")=20 #+end_src Debugger message: Debugger entered--Lisp error: (void-function org-babel-get-header) org-babel-get-header(((:colname-names) (:rowname-names) (:result-params "= replace" "replace") (:result-type . value) (:comments . "") (:shebang . "")= (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") (:exports= . "code") (:results . "replace") (:session . "none") (:hlines . "no")) :va= r) org-babel-variable-assignments:sh(((:colname-names) (:rowname-names) (:re= sult-params "replace" "replace") (:result-type . value) (:comments . "") (:= shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "n= o") (:exports . "code") (:results . "replace") (:session . "none") (:hlines= . "no"))) org-babel-execute:sh("echo 4" ((:colname-names) (:rowname-names) (:result= -params "replace" "replace") (:result-type . value) (:comments . "") (:sheb= ang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle . "no") = (:exports . "code") (:results . "replace") (:session . "none") (:hlines . "= no"))) funcall(org-babel-execute:sh "echo 4" ((:colname-names) (:rowname-names) = (:result-params "replace" "replace") (:result-type . value) (:comments . ""= ) (:shebang . "") (:cache . "no") (:padline . "") (:noweb . "no") (:tangle = . "no") (:exports . "code") (:results . "replace") (:session . "none") (:hl= ines . "no"))) (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 lang)) (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)) (cmd (intern (concat "= org-babel-execute:" lang))) result) (if (fboundp cmd) nil (error "No org-ba= bel-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 "r= esult 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 (a= ssoc :file params)) (progn (setq result-params ...)))))) (org-babel-insert-= result result result-params info new-hash lang)) (run-hooks (quote org-babe= l-after-execute-hook)) result) (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 info) (let* (= (lang (nth 0 info)) (result-params (cdr (assoc :result-params params))) (bo= dy (let* ((c ...)) (setcar c (if ... ... ...)))) (dir (cdr (assoc :dir para= ms))) (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)) (me= ssage "executing %s code block%s..." (capitalize lang) (if (nth 4 info) (fo= rmat " (%s)" (nth 4 info)) "")) (if (member "none" result-params) (progn (f= uncall cmd body params) (message "result silenced") (setq result nil)) (set= q result (let ((result ...)) (if (and ... ... ...) (list ...) result))) (if= (cdr (assoc :file params)) (progn (if result (progn ...)) (setq result (cd= r ...)))) (if (cdr (assoc :post params)) (progn (let (...) (setq result ...= ) (if ... ...)))) (org-babel-insert-result result result-params info new-ha= sh lang)) (run-hooks (quote org-babel-after-execute-hook)) result))) (let* ((params (nth 2 info)) (cachep (and (not arg) (cdr (assoc :cache pa= rams)) (string=3D "yes" (cdr (assoc :cache params))))) (new-hash (if cachep= (progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-babe= l-current-result-hash)))) (cache-current-p (and (not arg) new-hash (equal n= ew-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char (org= -babel-where-is-src-block-result nil info)) (forward-line) (skip-chars-forw= ard " ") (let ((result (org-babel-read-result))) (message (replace-regexp-= in-string "%" "%%" (format "%S" result))) result))) ((org-babel-confirm-eva= luate info) (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-p= arams params))) (body (let* (...) (setcar c ...))) (dir (cdr (assoc :dir pa= rams))) (default-directory (or (and dir ...) default-directory)) (cmd (inte= rn (concat "org-babel-execute:" lang))) result) (if (fboundp cmd) nil (erro= r "No org-babel-execute function for %s!" lang)) (message "executing %s cod= e block%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 inf= o)) "")) (if (member "none" result-params) (progn (funcall cmd body params)= (message "result silenced") (setq result nil)) (setq result (let (...) (if= ... ... result))) (if (cdr (assoc :file params)) (progn (if result ...) (s= etq result ...))) (if (cdr (assoc :post params)) (progn (let ... ... ...)))= (org-babel-insert-result result result-params info new-hash lang)) (run-ho= oks (quote org-babel-after-execute-hook)) result)))) (progn (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (c= ar c)))) (let* ((params (nth 2 info)) (cachep (and (not arg) (cdr (assoc :c= ache params)) (string=3D "yes" (cdr (assoc :cache params))))) (new-hash (if= cachep (progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (o= rg-babel-current-result-hash)))) (cache-current-p (and (not arg) new-hash (= equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-ch= ar (org-babel-where-is-src-block-result nil info)) (forward-line) (skip-cha= rs-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 ...)) (d= efault-directory (or ... default-directory)) (cmd (intern ...)) result) (if= (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (m= essage "executing %s code block%s..." (capitalize lang) (if (nth 4 info) (f= ormat " (%s)" ...) "")) (if (member "none" result-params) (progn (funcall c= md 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 lang)) (run-hook= s (quote org-babel-after-execute-hook)) result))))) (if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2 info))) (s= etcar c (org-babel-process-params (car c)))) (let* ((params (nth 2 info)) (= cachep (and (not arg) (cdr (assoc :cache params)) (string=3D "yes" (cdr ...= )))) (new-hash (if cachep (progn (org-babel-sha1-hash info)))) (old-hash (i= f cachep (progn (org-babel-current-result-hash)))) (cache-current-p (and (n= ot 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)) (forwa= rd-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) n= il (error "No org-babel-execute function for %s!" lang)) (message "executin= g %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 lang)) (ru= n-hooks (quote org-babel-after-execute-hook)) result)))))) (let* ((org-babel-current-src-block-location (or org-babel-current-src-bl= ock-location (nth 5 info) (org-babel-where-is-src-block-head))) (info (if i= nfo (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-babe= l-process-params (car c)))) (let* ((params (nth 2 info)) (cachep (and (not = arg) (cdr ...) (string=3D "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-c= har ...) (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) (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block cu= rrent-prefix-arg) t) (if (memq (org-element-type (org-element-context)) (quote (inline-src-blo= ck src-block))) (progn (org-babel-eval-wipe-error-buffer) (org-babel-execut= e-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) 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 "%s" ...) (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) funcall-interactively(org-ctrl-c-ctrl-c nil) call-interactively(org-ctrl-c-ctrl-c nil nil) command-execute(org-ctrl-c-ctrl-c) Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See http://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org-mode mailing list. =2D----------------------------------------------------------------------- Emacs : GNU Emacs 25.0.92.1 (x86_64-apple-darwin15.3.0, NS appkit-1404.34 = Version 10.11.3 (Build 15D21)) of 2016-03-07 Package: Org-mode version 8.3.4 (release_8.3.4-639-gd5a603 @ /Users/rainerk= rug/.emacs.d/elpa/25.0/org-20151005/) =2D-=20 Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology,= UCT), Dipl. Phys. (Germany) Centre of Excellence for Invasion Biology Stellenbosch University South Africa Tel : +33 - (0)9 53 10 27 44 Cell: +33 - (0)6 85 62 59 98 Fax : +33 - (0)9 58 10 27 44 Fax (D): +49 - (0)3 21 21 25 22 44 email: Rainer@krugs.de Skype: RMkrug PGP: 0x0F52F982 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEcBAEBCAAGBQJW4V4UAAoJENvXNx4PUvmCWjEH+wYt2p0BY9MiHf+kC6BjFYlg JiB1Kh4HVzKgeGP34LMnM6XWbtMiptSSTIYW5P6QfOA0itonqV1VpU1Get7Rm4E5 DYshVup16SmF/nmz7HiIa6Ge6uhYgie0jMWV25IQd/WafMQwGtY56Jleko2EP2lp cEXvzUxwvbmO2WSv1hy9KUtWiTFeTEgSAt7B6GZFnutRoTqdySzVnhwrX8AWw7hP KMYLQ7Ca7p721cZ46myvRwBnt3ZHgRcY4wBMaaYtigDAJcpsu8qpej9cR4p24En7 zCXjxrKeGyD+TxH/ssQZwO8sTQdYVxN8YV96BRI5coA9C9fxKHdpVuW7bxpakw0= =++6m -----END PGP SIGNATURE----- --=-=-=--