Hi all
On Fri, Aug 31, 2012 at 11:31 AM, Michael Brand
<michael.ch.br...@gmail.com> wrote:
> With emacs -q and today’s release_7.9-176-g2939333 I get “Wrong type
> argument: arrayp, nil” after org-babel-load-file with this file:
>
> #+BEGIN_SRC org
> ,* TODO
> , #+BEGIN_SRC emacs-lisp
> , (message "any")
> , #+END_SRC
> #+END_SRC
This issue with tangling a source block when heading has no text is
solved with the attached patch.
Michael
From 3e6720982352e1cf6aaa640e1dedc37ac937f9d0 Mon Sep 17 00:00:00 2001
From: Michael Brand <michael.ch.br...@gmail.com>
Date: Sat, 1 Sep 2012 14:51:42 +0200
Subject: [PATCH] ob-tangle: Fix bug when heading has no text
* lisp/ob-tangle.el (org-babel-tangle-collect-blocks): Use dummy
string when heading has no text.
---
lisp/ob-tangle.el | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index 5bf70fe..eb47e02 100644
--- a/lisp/ob-tangle.el
+++ b/lisp/ob-tangle.el
@@ -360,7 +360,8 @@ code blocks by language."
(setq block-counter (+ 1 block-counter))))
(replace-regexp-in-string "[ \t]" "-"
(condition-case nil
- (nth 4 (org-heading-components))
+ (unless (nth 4 (org-heading-components))
+ "(dummy for heading without text)")
(error (buffer-file-name)))))
(let* ((start-line (save-restriction (widen)
(+ 1 (line-number-at-pos (point)))))
--
1.7.4.2
