From a8ff1b0319bb536eca123b77ec1e5b3f702c2ff5 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 3 Aug 2010 11:20:48 -0600 Subject: [PATCH] ob-tangle: don't throw errors when we're not under of a headline * lisp/ob-tangle.el (org-babel-tangle-collect-blocks): don't throw errors when we're not under of a headline --- lisp/ob-tangle.el | 4 +++- 1 files changed, 3 insertions(+), 1 deletions(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 7464f59..a7ba072 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -234,7 +234,9 @@ code blocks by language." (setq current-heading new-heading)) (setq block-counter (+ 1 block-counter)))) (replace-regexp-in-string "[ \t]" "-" - (nth 4 (org-heading-components)))) + (condition-case nil + (nth 4 (org-heading-components)) + (error (buffer-file-name))))) (let* ((link (progn (call-interactively 'org-store-link) (org-babel-clean-text-properties (car (pop org-stored-links))))) -- 1.7.0.4