From: Robert Horn <rjhorn@alum.mit.edu>
To: Orgmode <emacs-orgmode@gnu.org>
Subject: Babel related bug in elpa version 20121231
Date: Wed, 02 Jan 2013 17:22:23 -0500 [thread overview]
Message-ID: <m3r4m38bts.fsf@quad.robs.office> (raw)
In-Reply-To: 1342018996.75825.YahooMailNeo@web29804.mail.ird.yahoo.com
[-- Attachment #1: Type: text/plain, Size: 1075 bytes --]
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
[-- Attachment #2: Output from emacs --debug-init --]
[-- Type: text/plain, Size: 13973 bytes --]
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/.emacs.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 literate) (org-babel-load-file literate)) ((file-exists-p plain) (load plain)))
(let* ((path (expand-file-name base starter-kit-dir)) (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))))
(catch (quote --cl-block-sk-load--) (let* ((path (expand-file-name base starter-kit-dir)) (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)))))
(cl-block-wrapper (catch (quote --cl-block-sk-load--) (let* ((path (expand-file-name base starter-kit-dir)) (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))))))
(block sk-load (let* ((path (expand-file-name base starter-kit-dir)) (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)))))
sk-load("hornrj")
(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-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 string=)))))
(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 (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-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 string=))))))
(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 (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-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 string=)))))) (if --cl-letf-bound-- (fset (quote remove-extension) --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 (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-exists-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (function sk-load) (remove-duplicates (mapcar ... ...) :test (function string=)))))) (if --cl-letf-bound-- (fset (quote remove-extension) --cl-letf-save--) (fmakunbound (quote remove-extension)))))
(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-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 string=))))))
(progn (fset (quote sk-load) (function* (lambda (base) (block sk-load (let* ((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-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 string=)))))))
(unwind-protect (progn (fset (quote sk-load) (function* (lambda (base) (block sk-load (let* (... ... ... ... ...) (cond ... ... ... ...)))))) (letf (((symbol-function (quote remove-extension)) (function* (lambda (name) (block remove-extension ... ...))))) (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-exists-p user-dir) (add-to-list (quote load-path) user-dir) (mapc (function sk-load) (remove-duplicates (mapcar ... ...) :test (function string=))))))) (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-- (and --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-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 (...) (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-dir) (mapc (function sk-load) (remove-duplicates ... :test ...)))))) (if --cl-letf-bound-- (fset (quote sk-load) --cl-letf-save--) (fmakunbound (quote sk-load)))))
(letf (((symbol-function (quote sk-load)) (function* (lambda (base) (block 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-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-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 string=)))))))
(letf* (((symbol-function (quote sk-load)) (function* (lambda (base) (block 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 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-dir) (mapc (function sk-load) (remove-duplicates (mapcar (function remove-extension) (directory-files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :test (function string=))))))
(flet ((sk-load (base) (let* ((path (expand-file-name base starter-kit-dir)) (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-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-dir) (mapc (function sk-load) (remove-duplicates (mapcar (function remove-extension) (directory-files user-dir t ".*.\\(org\\|el\\)\\(\\.gpg\\)?$")) :test (function string=))))))
eval-buffer(#<buffer *load*<2>> nil "/home/hornrj/.emacs.d/starter-kit.el" nil t) ; Reading at buffer position 5662
load-with-code-conversion("/home/hornrj/.emacs.d/starter-kit.el" "/home/hornrj/.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(#<buffer *load*> 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 "\b\205\262\0 \306=\203\x11\0\307\b\310Q\202;\0 \311=\204\x1e\0\307\b\312Q\202;\0\313\307\314\315#\203*\0\316\202;\0\313\307\314\317#\203:\0\320\nB\x12\321\202;\0\316\322\x13\323\x01\322\211#\210\v\322=\203a\0\324\325\326\307\b\327Q!\"\323\x01\322\211#\210\v\322=\203`\0\x01\x13\210\v\203\243\0\330\v!\331\232\203\243\0\332\v!\211\333P\334\x01!\203}\0\211\202\210\0\334\x02!\203\207\0\x01\202\210\0\314\262\x02\x01\203\241\0\335\x02\v\"\203\237\0\336\337\x03\v#\210\340\341!\210\x01\x13\266\x02\f?\205\260\0\314\x1d\323\342\322\211#)\262\x01\207" [init-file-user system-type delayed-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-file-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 message "Warning: %s is newer than %s" sit-for 1 "default"] 7 "\n\n(fn)"]()
command-line()
normal-top-level()
next prev parent reply other threads:[~2013-01-02 23:02 UTC|newest]
Thread overview: 37+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-07-11 15:03 org version under Windows 7 Giovanni Ridolfi
2012-07-11 16:46 ` Achim Gratz
2012-07-11 17:43 ` [PATCH] " Achim Gratz
2012-07-11 20:21 ` Bastien
2012-07-11 21:15 ` Achim Gratz
2012-07-12 6:31 ` Bastien
2012-07-12 8:30 ` Giovanni Ridolfi
2012-07-12 13:24 ` Achim Gratz
2012-07-24 15:23 ` Bastien
2012-07-25 7:52 ` Giovanni Ridolfi
2012-07-26 12:50 ` Bastien
2012-07-26 18:49 ` Achim Gratz
2012-07-31 16:36 ` Bastien
2013-01-02 22:22 ` Robert Horn [this message]
2013-01-04 2:16 ` Babel related bug in elpa version 20121231 Robert Horn
2013-01-04 15:23 ` Bastien
2013-01-04 21:27 ` Achim Gratz
2013-01-05 0:10 ` Robert Horn
2013-01-05 7:07 ` Achim Gratz
2013-01-05 11:07 ` Bastien
2013-01-05 11:45 ` Achim Gratz
2013-01-05 12:33 ` Bastien
2013-01-05 13:40 ` Achim Gratz
2013-01-05 14:00 ` Bastien
2013-01-05 16:40 ` Robert Horn
2013-01-05 16:55 ` Achim Gratz
2013-01-05 18:51 ` Eric Schulte
2013-01-05 19:07 ` Achim Gratz
2013-01-05 19:28 ` Eric Schulte
2013-01-05 20:39 ` Achim Gratz
2013-01-05 23:29 ` Eric Schulte
[not found] ` <CAGoVJLFRky2wOZUkyAVTp3E9eXnsYoetAckWKJs1MKyqQHUCFA@mail.gmail.com>
2013-01-05 20:55 ` Fwd: " Stelian Iancu
2013-01-05 21:16 ` Eric Schulte
2013-01-05 21:10 ` Robert Horn
2013-01-05 22:14 ` Tom Davey
2013-01-05 23:30 ` Eric Schulte
2013-01-06 20:21 ` Stelian Iancu
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3r4m38bts.fsf@quad.robs.office \
--to=rjhorn@alum.mit.edu \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).