From mboxrd@z Thu Jan 1 00:00:00 1970 From: Robert Horn Subject: Babel related bug in elpa version 20121231 Date: Wed, 02 Jan 2013 17:22:23 -0500 Message-ID: References: <1342018996.75825.YahooMailNeo@web29804.mail.ird.yahoo.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([208.118.235.92]:33884) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TqXKY-00014E-DR for emacs-orgmode@gnu.org; Wed, 02 Jan 2013 18:02:46 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TqXKU-0008D3-NZ for emacs-orgmode@gnu.org; Wed, 02 Jan 2013 18:02:38 -0500 Received: from l2mail1.panix.com ([166.84.1.75]:62224) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TqXKU-0008Ca-Ii for emacs-orgmode@gnu.org; Wed, 02 Jan 2013 18:02:34 -0500 Received: from mailbackend.panix.com (mailbackend.panix.com [166.84.1.89]) by l2mail1.panix.com (Postfix) with ESMTP id E9108D7 for ; Wed, 2 Jan 2013 17:22:27 -0500 (EST) Received: from quad.robs.office (panix2.panix.com [166.84.1.2]) by mailbackend.panix.com (Postfix) with ESMTP id A15E82E6C9 for ; Wed, 2 Jan 2013 17:22:24 -0500 (EST) 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: Orgmode --=-=-= Content-Type: text/plain I'm experimenting with starterkit on a new machine and have run into a bug in org-mode elpa version 20121231. With the stock distribution org-mode (7.8.11) in emacs 24.2 there is no problem. With the elpa version 20121231 I get an error, see the attached output from emacs --debug-init. It's not clear to me why the condition is failing in org-babel-strip-protective-commas. This works properly in 7.8.11. It shouldn't be taking the path that leads to org-strip-protective-commas. The environment is the unmodified git repository for the emacs24-starter-kit, and this error is from the first #+begin_src emacs-lisp in the personalized startup file. This work is on a new machine. It doesn't have the org-mode git repository readily available. If there is an easy way to get intermediate versions from elpa I can try those relatively easily to isolate the change that triggers this error better. For now the workaround is to revert the org-mode package, get the startups the way I want them, and then re-activate the org-mode package. R Horn rjhorn@alum.mit.edu --=-=-= Content-Type: text/plain Content-Disposition: inline; filename=debut-init-output Content-Transfer-Encoding: quoted-printable Content-Description: Output from emacs --debug-init Debugger entered--Lisp error: (void-function org-strip-protective-commas) org-strip-protective-commas(1 77) org-babel-strip-protective-commas(" (add-hook 'text-mode-hook\n = '(lambda () (visual-line-mode)))" "emacs-lisp") org-babel-parse-src-block-match() org-babel-get-src-block-info(light) org-babel-tangle-collect-blocks("emacs-lisp") org-babel-tangle(nil "/home/hornrj/.emacs.d/hornrj.el" "emacs-lisp") org-babel-tangle-file("/home/hornrj/.emacs.d/hornrj.org" "/home/hornrj/.e= macs.d/hornrj.el" "emacs-lisp") org-babel-load-file("/home/hornrj/.emacs.d/hornrj.org") (cond ((file-exists-p encrypted-org) (org-babel-load-file encrypted-org))= ((file-exists-p encrypted-el) (load encrypted-el)) ((file-exists-p literat= e) (org-babel-load-file literate)) ((file-exists-p plain) (load plain))) (let* ((path (expand-file-name base starter-kit-dir)) (literate (concat p= ath ".org")) (encrypted-org (concat path ".org.gpg")) (plain (concat path "= .el")) (encrypted-el (concat path ".el.gpg"))) (cond ((file-exists-p encryp= ted-org) (org-babel-load-file encrypted-org)) ((file-exists-p encrypted-el)= (load encrypted-el)) ((file-exists-p literate) (org-babel-load-file litera= te)) ((file-exists-p plain) (load plain)))) (catch (quote --cl-block-sk-load--) (let* ((path (expand-file-name base s= tarter-kit-dir)) (literate (concat path ".org")) (encrypted-org (concat pat= h ".org.gpg")) (plain (concat path ".el")) (encrypted-el (concat path ".el.= gpg"))) (cond ((file-exists-p encrypted-org) (org-babel-load-file encrypted= -org)) ((file-exists-p encrypted-el) (load encrypted-el)) ((file-exists-p l= iterate) (org-babel-load-file literate)) ((file-exists-p plain) (load plain= ))))) (cl-block-wrapper (catch (quote --cl-block-sk-load--) (let* ((path (expan= d-file-name base starter-kit-dir)) (literate (concat path ".org")) (encrypt= ed-org (concat path ".org.gpg")) (plain (concat path ".el")) (encrypted-el = (concat path ".el.gpg"))) (cond ((file-exists-p encrypted-org) (org-babel-l= oad-file encrypted-org)) ((file-exists-p encrypted-el) (load encrypted-el))= ((file-exists-p literate) (org-babel-load-file literate)) ((file-exists-p = plain) (load plain)))))) (block sk-load (let* ((path (expand-file-name base starter-kit-dir)) (lit= erate (concat path ".org")) (encrypted-org (concat path ".org.gpg")) (plain= (concat path ".el")) (encrypted-el (concat path ".el.gpg"))) (cond ((file-= exists-p encrypted-org) (org-babel-load-file encrypted-org)) ((file-exists-= p encrypted-el) (load encrypted-el)) ((file-exists-p literate) (org-babel-l= oad-file literate)) ((file-exists-p plain) (load plain))))) sk-load("hornrj") (let ((elisp-dir (expand-file-name "src" starter-kit-dir)) (user-dir (exp= and-file-name user-login-name starter-kit-dir))) (add-to-list (quote load-p= ath) elisp-dir) (when (file-exists-p elisp-dir) (let ((default-directory el= isp-dir)) (normal-top-level-add-subdirs-to-load-path))) (sk-load system-nam= e) (sk-load user-login-name) (when (file-exists-p user-dir) (add-to-list (q= uote load-path) user-dir) (mapc (function sk-load) (remove-duplicates (mapc= ar (function remove-extension) (directory-files user-dir t ".*.\\(org\\|el\= \)\\(\\.gpg\\)?$")) :test (function string=3D))))) (progn (fset (quote remove-extension) (function* (lambda (name) (block re= move-extension (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\\|el\\)\\(\\.gpg= \\)?$" name) (match-string 1 name))))) (let ((elisp-dir (expand-file-name "= src" starter-kit-dir)) (user-dir (expand-file-name user-login-name starter-= kit-dir))) (add-to-list (quote load-path) elisp-dir) (when (file-exists-p e= lisp-dir) (let ((default-directory elisp-dir)) (normal-top-level-add-subdir= s-to-load-path))) (sk-load system-name) (sk-load user-login-name) (when (fi= le-exists-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (funct= ion sk-load) (remove-duplicates (mapcar (function remove-extension) (direct= ory-files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :test (function st= ring=3D)))))) (unwind-protect (progn (fset (quote remove-extension) (function* (lambda = (name) (block remove-extension (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\= \|el\\)\\(\\.gpg\\)?$" name) (match-string 1 name))))) (let ((elisp-dir (ex= pand-file-name "src" starter-kit-dir)) (user-dir (expand-file-name user-log= in-name starter-kit-dir))) (add-to-list (quote load-path) elisp-dir) (when = (file-exists-p elisp-dir) (let ((default-directory elisp-dir)) (normal-top-= level-add-subdirs-to-load-path))) (sk-load system-name) (sk-load user-login= -name) (when (file-exists-p user-dir) (add-to-list (quote load-path) user-d= ir) (mapc (function sk-load) (remove-duplicates (mapcar (function remove-ex= tension) (directory-files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :t= est (function string=3D)))))) (if --cl-letf-bound-- (fset (quote remove-ext= ension) --cl-letf-save--) (fmakunbound (quote remove-extension)))) (let* ((--cl-letf-bound-- (fboundp (quote remove-extension))) (--cl-letf-= save-- (and --cl-letf-bound-- (symbol-function (quote remove-extension)))))= (unwind-protect (progn (fset (quote remove-extension) (function* (lambda (= name) (block remove-extension (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\\= |el\\)\\(\\.gpg\\)?$" name) (match-string 1 name))))) (let ((elisp-dir (exp= and-file-name "src" starter-kit-dir)) (user-dir (expand-file-name user-logi= n-name starter-kit-dir))) (add-to-list (quote load-path) elisp-dir) (when (= file-exists-p elisp-dir) (let ((default-directory elisp-dir)) (normal-top-l= evel-add-subdirs-to-load-path))) (sk-load system-name) (sk-load user-login-= name) (when (file-exists-p user-dir) (add-to-list (quote load-path) user-di= r) (mapc (function sk-load) (remove-duplicates (mapcar ... ...) :test (func= tion string=3D)))))) (if --cl-letf-bound-- (fset (quote remove-extension) -= -cl-letf-save--) (fmakunbound (quote remove-extension))))) (letf (((symbol-function (quote remove-extension)) (function* (lambda (na= me) (block remove-extension (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\\|e= l\\)\\(\\.gpg\\)?$" name) (match-string 1 name)))))) (let ((elisp-dir (expa= nd-file-name "src" starter-kit-dir)) (user-dir (expand-file-name user-login= -name starter-kit-dir))) (add-to-list (quote load-path) elisp-dir) (when (f= ile-exists-p elisp-dir) (let ((default-directory elisp-dir)) (normal-top-le= vel-add-subdirs-to-load-path))) (sk-load system-name) (sk-load user-login-n= ame) (when (file-exists-p user-dir) (add-to-list (quote load-path) user-dir= ) (mapc (function sk-load) (remove-duplicates (mapcar (function remove-exte= nsion) (directory-files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :tes= t (function string=3D)))))) (progn (fset (quote sk-load) (function* (lambda (base) (block sk-load (le= t* ((path ...) (literate ...) (encrypted-org ...) (plain ...) (encrypted-el= ...)) (cond (... ...) (... ...) (... ...) (... ...))))))) (letf (((symbol-= function (quote remove-extension)) (function* (lambda (name) (block remove-= extension (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\\|el\\)\\(\\.gpg\\)?$= " name) (match-string 1 name)))))) (let ((elisp-dir (expand-file-name "src"= starter-kit-dir)) (user-dir (expand-file-name user-login-name starter-kit-= dir))) (add-to-list (quote load-path) elisp-dir) (when (file-exists-p elisp= -dir) (let ((default-directory elisp-dir)) (normal-top-level-add-subdirs-to= -load-path))) (sk-load system-name) (sk-load user-login-name) (when (file-e= xists-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (function = sk-load) (remove-duplicates (mapcar (function remove-extension) (directory-= files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :test (function string= =3D))))))) (unwind-protect (progn (fset (quote sk-load) (function* (lambda (base) (b= lock sk-load (let* (... ... ... ... ...) (cond ... ... ... ...)))))) (letf = (((symbol-function (quote remove-extension)) (function* (lambda (name) (blo= ck remove-extension ... ...))))) (let ((elisp-dir (expand-file-name "src" s= tarter-kit-dir)) (user-dir (expand-file-name user-login-name starter-kit-di= r))) (add-to-list (quote load-path) elisp-dir) (when (file-exists-p elisp-d= ir) (let ((default-directory elisp-dir)) (normal-top-level-add-subdirs-to-l= oad-path))) (sk-load system-name) (sk-load user-login-name) (when (file-exi= sts-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (function sk= -load) (remove-duplicates (mapcar ... ...) :test (function string=3D)))))))= (if --cl-letf-bound-- (fset (quote sk-load) --cl-letf-save--) (fmakunbound= (quote sk-load)))) (let* ((--cl-letf-bound-- (fboundp (quote sk-load))) (--cl-letf-save-- (a= nd --cl-letf-bound-- (symbol-function (quote sk-load))))) (unwind-protect (= progn (fset (quote sk-load) (function* (lambda (base) (block sk-load (let* = ... ...))))) (letf (((symbol-function (quote remove-extension)) (function* = (lambda ... ...)))) (let ((elisp-dir (expand-file-name "src" starter-kit-di= r)) (user-dir (expand-file-name user-login-name starter-kit-dir))) (add-to-= list (quote load-path) elisp-dir) (when (file-exists-p elisp-dir) (let (...= ) (normal-top-level-add-subdirs-to-load-path))) (sk-load system-name) (sk-l= oad user-login-name) (when (file-exists-p user-dir) (add-to-list (quote loa= d-path) user-dir) (mapc (function sk-load) (remove-duplicates ... :test ...= )))))) (if --cl-letf-bound-- (fset (quote sk-load) --cl-letf-save--) (fmaku= nbound (quote sk-load))))) (letf (((symbol-function (quote sk-load)) (function* (lambda (base) (bloc= k sk-load (let* (... ... ... ... ...) (cond ... ... ... ...))))))) (letf ((= (symbol-function (quote remove-extension)) (function* (lambda (name) (block= remove-extension (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\\|el\\)\\(\\.= gpg\\)?$" name) (match-string 1 name)))))) (let ((elisp-dir (expand-file-na= me "src" starter-kit-dir)) (user-dir (expand-file-name user-login-name star= ter-kit-dir))) (add-to-list (quote load-path) elisp-dir) (when (file-exists= -p elisp-dir) (let ((default-directory elisp-dir)) (normal-top-level-add-su= bdirs-to-load-path))) (sk-load system-name) (sk-load user-login-name) (when= (file-exists-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (f= unction sk-load) (remove-duplicates (mapcar (function remove-extension) (di= rectory-files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :test (functio= n string=3D))))))) (letf* (((symbol-function (quote sk-load)) (function* (lambda (base) (blo= ck sk-load (let* (... ... ... ... ...) (cond ... ... ... ...)))))) ((symbol= -function (quote remove-extension)) (function* (lambda (name) (block remove= -extension (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\\|el\\)\\(\\.gpg\\)?= $" name) (match-string 1 name)))))) (let ((elisp-dir (expand-file-name "src= " starter-kit-dir)) (user-dir (expand-file-name user-login-name starter-kit= -dir))) (add-to-list (quote load-path) elisp-dir) (when (file-exists-p elis= p-dir) (let ((default-directory elisp-dir)) (normal-top-level-add-subdirs-t= o-load-path))) (sk-load system-name) (sk-load user-login-name) (when (file-= exists-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (function= sk-load) (remove-duplicates (mapcar (function remove-extension) (directory= -files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :test (function strin= g=3D)))))) (flet ((sk-load (base) (let* ((path (expand-file-name base starter-kit-di= r)) (literate (concat path ".org")) (encrypted-org (concat path ".org.gpg")= ) (plain (concat path ".el")) (encrypted-el (concat path ".el.gpg"))) (cond= ((file-exists-p encrypted-org) (org-babel-load-file encrypted-org)) ((file= -exists-p encrypted-el) (load encrypted-el)) ((file-exists-p literate) (org= -babel-load-file literate)) ((file-exists-p plain) (load plain))))) (remove= -extension (name) (string-match "\\(.*?\\).\\(org\\(\\.el\\)?\\|el\\)\\(\\.= gpg\\)?$" name) (match-string 1 name))) (let ((elisp-dir (expand-file-name = "src" starter-kit-dir)) (user-dir (expand-file-name user-login-name starter= -kit-dir))) (add-to-list (quote load-path) elisp-dir) (when (file-exists-p = elisp-dir) (let ((default-directory elisp-dir)) (normal-top-level-add-subdi= rs-to-load-path))) (sk-load system-name) (sk-load user-login-name) (when (f= ile-exists-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (func= tion sk-load) (remove-duplicates (mapcar (function remove-extension) (direc= tory-files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :test (function s= tring=3D)))))) eval-buffer(#> nil "/home/hornrj/.emacs.d/starter-kit.e= l" nil t) ; Reading at buffer position 5662 load-with-code-conversion("/home/hornrj/.emacs.d/starter-kit.el" "/home/h= ornrj/.emacs.d/starter-kit.el" nil nil) load("/home/hornrj/.emacs.d/starter-kit.el" nil nil t) load-file("/home/hornrj/.emacs.d/starter-kit.el") org-babel-load-file("/home/hornrj/.emacs.d/starter-kit.org") eval-buffer(# nil "/home/hornrj/.emacs.d/init.el" nil t) = ; Reading at buffer position 348 load-with-code-conversion("/home/hornrj/.emacs.d/init.el" "/home/hornrj/.= emacs.d/init.el" t t) load("/home/hornrj/.emacs.d/init" t t) #[0 "\205\262=00 \306=3D\203=11=00\307\310Q\202;=00 \311=3D\204=1E=00\3= 07\312Q\202;=00\313\307\314\315#\203*=00\316\202;=00\313\307\314\317#\203:= =00\320\nB=12\321\202;=00\316\322=13\323=01\322\211#\210=0B\322=3D\203a=00\= 324\325\326\307\327Q!\"\323=01\322\211#\210=0B\322=3D\203`=00=01=13\210=0B= \203\243=00\330=0B!\331\232\203\243=00\332=0B!\211\333P\334=01!\203}=00\211= \202\210=00\334=02!\203\207=00=01\202\210=00\314\262=02=01\203\241=00\335= =02=0B\"\203\237=00\336\337=03=0B#\210\340\341!\210=01=13\266=02\f?\205\260= =00\314=1D\323\342\322\211#)\262=01\207" [init-file-user system-type delaye= d-warnings-list user-init-file inhibit-default-init inhibit-startup-screen = ms-dos "~" "/_emacs" windows-nt "/.emacs" directory-files nil "^\\.emacs\\(= \\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" (initialization "`_emacs'= init file is deprecated, please use `.emacs'") "~/_emacs" t load expand-fi= le-name "init" file-name-as-directory "/.emacs.d" file-name-extension "elc"= file-name-sans-extension ".el" file-exists-p file-newer-than-file-p messag= e "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]() command-line() normal-top-level() --=-=-=--