From mboxrd@z Thu Jan 1 00:00:00 1970 From: Rainer M Krug Subject: Re: 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:58:25 +0100 Message-ID: References: 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]:60280) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1adzEj-0005qn-CL for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 06:58:39 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1adzEg-0007b3-0p for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 06:58:37 -0500 Received: from mail-wm0-f44.google.com ([74.125.82.44]:34093) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1adzEf-0007ay-Jw for emacs-orgmode@gnu.org; Thu, 10 Mar 2016 06:58:33 -0500 Received: by mail-wm0-f44.google.com with SMTP id p65so25339775wmp.1 for ; Thu, 10 Mar 2016 03:58:33 -0800 (PST) Received: from Rainers-MacBook-Pro.local ([2a01:e35:8baa:b070:2087:2678:f511:7ab0]) by smtp.gmail.com with ESMTPSA id gg7sm3222538wjd.10.2016.03.10.03.58.30 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Thu, 10 Mar 2016 03:58:31 -0800 (PST) In-Reply-To: (Rainer M. Krug's message of "Thu, 10 Mar 2016 12:44:16 +0100") 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 Sorry for tp: Additional info: Works under Org-mode version 8.3.4 (8.3.4-dist @ /Users/rainerkrug/.emacs.d= /elpa/25.0/org-20151005/) Rainer M Krug writes: > * Configuration > Org-mode version 8.3.4 (release_8.3.4-639-gd5a603 @ /Users/rainerkrug/.em= acs.d/elpa/25.0/org-20151005/) > 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 > > 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") (:expor= ts . "code") (:results . "replace") (:session . "none") (:hlines . "no")) := var) > org-babel-variable-assignments:sh(((: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") (:hlin= es . "no"))) > org-babel-execute:sh("echo 4" ((:colname-names) (:rowname-names) (:resu= lt-params "replace" "replace") (:result-type . value) (:comments . "") (:sh= ebang . "") (: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") (:tangl= e . "no") (:exports . "code") (:results . "replace") (:session . "none") (:= hlines . "no"))) > (let ((result (funcall cmd body params))) (if (and (eq (cdr (assoc :res= ult-type params)) (quote value)) (or (member "vector" result-params) (membe= r "table" result-params)) (not (listp result))) (list (list result)) result= )) > (setq result (let ((result (funcall cmd body params))) (if (and (eq (cd= r (assoc :result-type params)) (quote value)) (or (member "vector" result-p= arams) (member "table" result-params)) (not (listp result))) (list (list re= sult)) result))) > (if (member "none" result-params) (progn (funcall cmd body params) (mes= sage "result silenced") (setq result nil)) (setq result (let ((result (func= all cmd body params))) (if (and (eq (cdr (assoc :result-type params)) (quot= e value)) (or (member "vector" result-params) (member "table" result-params= )) (not (listp result))) (list (list result)) result))) (if (cdr (assoc :fi= le params)) (progn (if result (progn (let ((temp-file ...) (temp-buffer ...= )) (unwind-protect (prog1 ... ...) (and ... ...))))) (setq result (cdr (ass= oc :file params))))) (if (cdr (assoc :post params)) (progn (let ((*this* (i= f (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-babe= l-insert-result result result-params info new-hash lang)) > (let* ((lang (nth 0 info)) (result-params (cdr (assoc :result-params pa= rams))) (body (let* ((c (nthcdr 1 info))) (setcar c (if (org-babel-noweb-p = params :eval) (org-babel-expand-noweb-references info) (nth 1 info))))) (di= r (cdr (assoc :dir params))) (default-directory (or (and dir (file-name-as-= directory (expand-file-name dir))) default-directory)) (cmd (intern (concat= "org-babel-execute:" lang))) result) (if (fboundp cmd) nil (error "No org-= babel-execute function for %s!" lang)) (message "executing %s code block%s.= .." (capitalize lang) (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 c= md body params))) (if (and (eq (cdr ...) (quote value)) (or (member "vector= " result-params) (member "table" result-params)) (not (listp result))) (lis= t (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-inser= t-result result result-params info new-hash lang)) (run-hooks (quote org-ba= bel-after-execute-hook)) result) > (cond (cache-current-p (save-excursion (goto-char (org-babel-where-is-s= rc-block-result nil info)) (forward-line) (skip-chars-forward " ") (let ((= result (org-babel-read-result))) (message (replace-regexp-in-string "%" "%%= " (format "%S" result))) result))) ((org-babel-confirm-evaluate info) (let*= ((lang (nth 0 info)) (result-params (cdr (assoc :result-params params))) (= body (let* ((c ...)) (setcar c (if ... ... ...)))) (dir (cdr (assoc :dir pa= rams))) (default-directory (or (and dir (file-name-as-directory ...)) defau= lt-directory)) (cmd (intern (concat "org-babel-execute:" lang))) result) (i= f (fboundp cmd) nil (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)) (s= etq 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 lang)) (run-hooks (quote org-babel-after-execute-hook)) result))) > (let* ((params (nth 2 info)) (cachep (and (not arg) (cdr (assoc :cache = params)) (string=3D "yes" (cdr (assoc :cache params))))) (new-hash (if cach= ep (progn (org-babel-sha1-hash info)))) (old-hash (if cachep (progn (org-ba= bel-current-result-hash)))) (cache-current-p (and (not arg) new-hash (equal= new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto-char (o= rg-babel-where-is-src-block-result nil info)) (forward-line) (skip-chars-fo= rward " ") (let ((result (org-babel-read-result))) (message (replace-regex= p-in-string "%" "%%" (format "%S" result))) result))) ((org-babel-confirm-e= valuate info) (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)) (cmd (in= tern (concat "org-babel-execute:" lang))) result) (if (fboundp cmd) nil (er= ror "No org-babel-execute function for %s!" lang)) (message "executing %s c= ode block%s..." (capitalize lang) (if (nth 4 info) (format " (%s)" (nth 4 i= nfo)) "")) (if (member "none" result-params) (progn (funcall cmd body param= s) (message "result silenced") (setq result nil)) (setq result (let (...) (= if ... ... result))) (if (cdr (assoc :file params)) (progn (if result ...) = (setq result ...))) (if (cdr (assoc :post params)) (progn (let ... ... ...)= )) (org-babel-insert-result result result-params info new-hash lang)) (run-= hooks (quote org-babel-after-execute-hook)) result)))) > (progn (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params = (car c)))) (let* ((params (nth 2 info)) (cachep (and (not arg) (cdr (assoc = :cache params)) (string=3D "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-c= hars-forward " ") (let ((result ...)) (message (replace-regexp-in-string "= %" "%%" ...)) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nt= h 0 info)) (result-params (cdr ...)) (body (let* ... ...)) (dir (cdr ...)) = (default-directory (or ... default-directory)) (cmd (intern ...)) result) (= if (fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) = (message "executing %s code block%s..." (capitalize lang) (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 lang)) (run-ho= oks (quote org-babel-after-execute-hook)) result))))) > (if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2 info))) = (setcar c (org-babel-process-params (car c)))) (let* ((params (nth 2 info))= (cachep (and (not arg) (cdr (assoc :cache params)) (string=3D "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 (sav= e-excursion (goto-char (org-babel-where-is-src-block-result nil info)) (for= ward-line) (skip-chars-forward " ") (let (...) (message ...) result))) ((o= rg-babel-confirm-evaluate info) (let* ((lang ...) (result-params ...) (body= ...) (dir ...) (default-directory ...) (cmd ...) result) (if (fboundp cmd)= nil (error "No org-babel-execute function for %s!" lang)) (message "execut= ing %s code block%s..." (capitalize lang) (if ... ... "")) (if (member "non= e" result-params) (progn ... ... ...) (setq result ...) (if ... ...) (if ..= . ...) (org-babel-insert-result result result-params info new-hash lang)) (= run-hooks (quote org-babel-after-execute-hook)) result)))))) > (let* ((org-babel-current-src-block-location (or org-babel-current-src-= block-location (nth 5 info) (org-babel-where-is-src-block-head))) (info (if= info (copy-tree info) (org-babel-get-src-block-info)))) (let* ((c (nthcdr = 2 info))) (setcar c (org-babel-merge-params (car c) params))) (if (org-babe= l-check-evaluate info) (progn (let* ((c (nthcdr 2 info))) (setcar c (org-ba= bel-process-params (car c)))) (let* ((params (nth 2 info)) (cachep (and (no= t arg) (cdr ...) (string=3D "yes" ...))) (new-hash (if cachep (progn ...)))= (old-hash (if cachep (progn ...))) (cache-current-p (and (not arg) new-has= h (equal new-hash old-hash)))) (cond (cache-current-p (save-excursion (goto= -char ...) (forward-line) (skip-chars-forward " ") (let ... ... result))) = ((org-babel-confirm-evaluate info) (let* (... ... ... ... ... ... result) (= if ... nil ...) (message "executing %s code block%s..." ... ...) (if ... ..= . ... ... ... ...) (run-hooks ...) result))))))) > org-babel-execute-src-block(nil) > (progn (org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block = current-prefix-arg) t) > (if (memq (org-element-type (org-element-context)) (quote (inline-src-b= lock src-block))) (progn (org-babel-eval-wipe-error-buffer) (org-babel-exec= ute-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 highlig= hts/overlays removed from current buffer")) ((and (local-variable-p (quote = org-finish-function) (current-buffer)) (fboundp org-finish-function)) (func= all org-finish-function)) ((run-hook-with-args-until-success (quote org-ctr= l-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-fi= nal-hook)) (user-error "C-c C-c can do nothing useful at this location")) (= let* ((context (org-element-context)) (type (org-element-type context))) (c= ond ((eql type (quote link)) (setq context (org-element-property :parent co= ntext)) (setq type (org-element-type context))) ((memql type (quote ...)) (= setq context (org-element-lineage context ...)))) (if (eq type (quote parag= raph)) (progn (let (...) (if ... ...)))) (cond ((eql type (quote clock)) (o= rg-clock-update-time-maybe)) ((eql type (quote dynamic-block)) (save-excurs= ion (goto-char ...) (org-update-dblock))) ((eql type (quote footnote-defini= tion)) (goto-char (org-element-property :post-affiliated context)) (call-in= teractively (quote org-footnote-action))) ((eql type (quote footnote-refere= nce)) (call-interactively (quote org-footnote-action))) ((memql type (quote= ...)) (save-excursion (goto-char ...) (call-interactively ...))) ((eql typ= e (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-f= ix-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 (q= uote statistics-cookie)) (call-interactively (quote org-update-statistics-c= ookies))) ((memql type (quote ...)) (if (eq ... ...) (message "%s" ...) (le= t ... ...))) ((eql type (quote timestamp)) (org-timestamp-change 0 (quote d= ay))) (t (or (run-hook-with-args-until-success ...) (user-error "C-c C-c ca= n 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. > ------------------------------------------------------------------------ > > > Emacs : GNU Emacs 25.0.92.1 (x86_64-apple-darwin15.3.0, NS appkit-1404.3= 4 Version 10.11.3 (Build 15D21)) > of 2016-03-07 > Package: Org-mode version 8.3.4 (release_8.3.4-639-gd5a603 @ /Users/raine= rkrug/.emacs.d/elpa/25.0/org-20151005/) =2D-=20 Rainer M. Krug email: Rainerkrugsde PGP: 0x0F52F982 --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEcBAEBCAAGBQJW4WFlAAoJENvXNx4PUvmCQUYH/iv5hJAD7c4F/cjMoYHoO9qm 9CdgUrU3mVcdYcKXjz2R/NBtfKpreRkT4TYWpGhbVKaQltii1NrRlzAmjY0T1LKG R4zS6zJbkqW4MZPPv/eXwFO/3Xb/ef3R5eq+tHR6XCNb33vqjN1oxjo1zlA0VZZQ tUbiPBFyb3qgpUTxdy0+B3g7NNXiAgQHNiY3Dc8Dd8dofH+7SoyOlCMx8O9MZPy7 E+hNyKPWnejG7Zxc0q5sFk8qHt89eePkEx1FpoNfPyZ4So/dQorTtmUsEo02n5NP Wsh6IQwJ7SEhc4+zoQu8YAv6PvqHE+yeYV14ZReiCZQc9xDPD9SbtvBjjqEpEuM= =UN/+ -----END PGP SIGNATURE----- --=-=-=--