From: Rainer M Krug <Rainer@krugs.de>
To: emacs-orgmode@gnu.org
Cc: Eric Schulte <schulte.eric@gmail.com>
Subject: [BABEL] BUG - error on tangling - disappears when changing the filename
Date: Fri, 27 Sep 2013 14:23:09 +0200 [thread overview]
Message-ID: <m24n96xxle.fsf@krugs.de> (raw)
[-- Attachment #1: Type: text/plain, Size: 7373 bytes --]
Hi
I have a strange error when tangling.
I have a large org file with several code blocks tangling in about
20 R files and one bash file. Usually tangling works perfectly, but
sometimes one code block does not tangle a code block to a file. These
are different blocks. When I change the name of the fiole to be tangled
to, it works again. After d=some time, I can rename it again and it
works again.
The last time it happened, I was debugging the function. But even when
deleting all the content of the code block, the problem persists.
This persists over restarts of org.
The code block looks as follow:
,----
| *** dispProb2D (./R/dispProd2D.R)
| :PROPERTIES:
| :tangle: ./R/dispProd2D.R
| :comments: yes
| :no-expand: TRUE
| :END:
| #+begin_src R
| cat(5)
| #+end_src
`----
In the original version, there is obviously code in it, but the error
occurs even in the empty block. I just renamed the block, and it is
working again.
Any idea what is causing this?
Please find the backtrace below.
Cheers,
Rainer
,----
| ebugger entered--Lisp error: (wrong-type-argument stringp nil)
| set-buffer(nil)
| (save-current-buffer (set-buffer (get-file-buffer file)) (revert-buffer t t t))
| org-babel-find-file-noselect-refresh("./R/dispProd2D.R")
| (let* ((temp-path file) (visited-p (get-file-buffer temp-path)) temp-result temp-file) (org-babel-find-file-noselect-refresh temp-path) (setq temp-file (get-file-buffer temp-path)) (save-current-buffer (set-buffer temp-file) (setq temp-result (progn (run-hooks (quote org-babel-post-tangle-hook))))) (if visited-p nil (kill-buffer temp-file)) temp-result)
| (lambda (file) (let* ((temp-path file) (visited-p (get-file-buffer temp-path)) temp-result temp-file) (org-babel-find-file-noselect-refresh temp-path) (setq temp-file (get-file-buffer temp-path)) (save-current-buffer (set-buffer temp-file) (setq temp-result (progn (run-hooks (quote org-babel-post-tangle-hook))))) (if visited-p nil (kill-buffer temp-file)) temp-result))("./R/dispProd2D.R")
| mapc((lambda (file) (let* ((temp-path file) (visited-p (get-file-buffer temp-path)) temp-result temp-file) (org-babel-find-file-noselect-refresh temp-path) (setq temp-file (get-file-buffer temp-path)) (save-current-buffer (set-buffer temp-file) (setq temp-result (progn (run-hooks (quote org-babel-post-tangle-hook))))) (if visited-p nil (kill-buffer temp-file)) temp-result)) ("postTangleScript.sh" "./.gitignore" "./DESCRIPTION" "./.Rbuildignore" "./R/parmsFire.R" "./R/parmsPinus.R" "./R/parmsAcacia.R" "./R/parmsRubus.R" "./R/parmsBudget.R" "./R/parameter.R" "./R/endYear.R" "./R/germEst.R" "./R/seedDispersal.R" "./R/seedProduction.R" "./R/fireAliens.R" "./R/clearAliens.R" "./R/prioritisation.R" "./R/beginYear.R" "./R/main.R" "./R/cumulativeDc.R" "./R/dcToIndLayer.R" "./R/competition.R" "./R/dispProd2D.R" "./R/initfun.R" "./R/newInDrak.R" "./R/resetOptions.R" "./R/stats.R" "./R/layerIO.R" "./R/layerNames.R" "./R/onLoad.R" "./NAMESPACE" "./R/package.R"))
| (progn (mapc (function (lambda (file) (let* ((temp-path file) (visited-p (get-file-buffer temp-path)) temp-result temp-file) (org-babel-find-file-noselect-refresh temp-path) (setq temp-file (get-file-buffer temp-path)) (save-current-buffer (set-buffer temp-file) (setq temp-result (progn ...))) (if visited-p nil (kill-buffer temp-file)) temp-result))) (mapcar (function car) path-collector)))
| (if org-babel-post-tangle-hook (progn (mapc (function (lambda (file) (let* ((temp-path file) (visited-p ...) temp-result temp-file) (org-babel-find-file-noselect-refresh temp-path) (setq temp-file (get-file-buffer temp-path)) (save-current-buffer (set-buffer temp-file) (setq temp-result ...)) (if visited-p nil (kill-buffer temp-file)) temp-result))) (mapcar (function car) path-collector))))
| (let ((block-counter 0) (org-babel-default-header-args (if target-file (org-babel-merge-params org-babel-default-header-args (list (cons :tangle target-file))) org-babel-default-header-args)) (tangle-file (if (equal arg (quote (16))) (progn (or (cdr (assoc :tangle ...)) (user-error "Point is not in a source code block"))))) path-collector) (mapc (function (lambda (by-lang) (let* ((lang (car by-lang)) (specs (cdr by-lang)) (ext (or ... lang)) (lang-f (intern ...)) she-banged) (mapc (function (lambda ... ...)) specs)))) (if (equal arg (quote (4))) (org-babel-tangle-single-block 1 t) (org-babel-tangle-collect-blocks lang tangle-file))) (message "Tangled %d code block%s from %s" block-counter (if (= block-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or (buffer-base-buffer) (current-buffer))))) (if org-babel-post-tangle-hook (progn (mapc (function (lambda (file) (let* (... ... temp-result temp-file) (org-babel-find-file-noselect-refresh temp-path) (setq temp-file ...) (save-current-buffer ... ...) (if visited-p nil ...) temp-result))) (mapcar (function car) path-collector)))) (mapc (function (lambda (pair) (if (cdr pair) (progn (set-file-modes (car pair) (cdr pair)))))) path-collector) (mapcar (function car) path-collector))
| (save-excursion (let ((block-counter 0) (org-babel-default-header-args (if target-file (org-babel-merge-params org-babel-default-header-args (list (cons :tangle target-file))) org-babel-default-header-args)) (tangle-file (if (equal arg (quote (16))) (progn (or (cdr ...) (user-error "Point is not in a source code block"))))) path-collector) (mapc (function (lambda (by-lang) (let* ((lang ...) (specs ...) (ext ...) (lang-f ...) she-banged) (mapc (function ...) specs)))) (if (equal arg (quote (4))) (org-babel-tangle-single-block 1 t) (org-babel-tangle-collect-blocks lang tangle-file))) (message "Tangled %d code block%s from %s" block-counter (if (= block-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or (buffer-base-buffer) (current-buffer))))) (if org-babel-post-tangle-hook (progn (mapc (function (lambda (file) (let* ... ... ... ... ... temp-result))) (mapcar (function car) path-collector)))) (mapc (function (lambda (pair) (if (cdr pair) (progn (set-file-modes ... ...))))) path-collector) (mapcar (function car) path-collector)))
| (save-restriction (if (equal arg (quote (4))) (progn (let ((head (org-babel-where-is-src-block-head))) (if head (goto-char head) (user-error "Point is not in a source code block"))))) (save-excursion (let ((block-counter 0) (org-babel-default-header-args (if target-file (org-babel-merge-params org-babel-default-header-args (list ...)) org-babel-default-header-args)) (tangle-file (if (equal arg (quote ...)) (progn (or ... ...)))) path-collector) (mapc (function (lambda (by-lang) (let* (... ... ... ... she-banged) (mapc ... specs)))) (if (equal arg (quote (4))) (org-babel-tangle-single-block 1 t) (org-babel-tangle-collect-blocks lang tangle-file))) (message "Tangled %d code block%s from %s" block-counter (if (= block-counter 1) "" "s") (file-name-nondirectory (buffer-file-name (or (buffer-base-buffer) (current-buffer))))) (if org-babel-post-tangle-hook (progn (mapc (function (lambda ... ...)) (mapcar (function car) path-collector)))) (mapc (function (lambda (pair) (if (cdr pair) (progn ...)))) path-collector) (mapcar (function car) path-collector))))
| org-babel-tangle(nil)
| call-interactively(org-babel-tangle nil nil)
`----
--
Rainer M. Krug
email: RMKrug<at>gmail<dot>com
[-- Attachment #2: Type: application/pgp-signature, Size: 486 bytes --]
next reply other threads:[~2013-09-27 12:23 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-09-27 12:23 Rainer M Krug [this message]
2013-09-27 13:30 ` [BABEL] BUG - error on tangling - disappears when changing the filename Rainer M Krug
2013-09-27 13:44 ` Rainer M Krug
2013-09-28 12:22 ` Eric Schulte
2013-09-30 7:30 ` Rainer M Krug
2013-10-01 0:10 ` Eric Schulte
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=m24n96xxle.fsf@krugs.de \
--to=rainer@krugs.de \
--cc=emacs-orgmode@gnu.org \
--cc=schulte.eric@gmail.com \
/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).