From 9368d317fb8488e7f379164b7c02d22e88254449 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 30 Jan 2014 00:57:24 +0100 Subject: [PATCH] ob-tangle.el (org-babel-under-commented-heading-p): Throw nil when called before the first heading * ob-tangle.el (org-babel-under-commented-heading-p): Throw nil when called before the first heading. Thanks to John Kitchin for reporting this. --- lisp/ob-tangle.el | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 581142bb3..a44d585e4 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -358,12 +358,13 @@ that the appropriate major-mode is set. SPEC has the form: (defvar org-comment-string) ;; Defined in org.el (defun org-babel-under-commented-heading-p () "Return t if currently under a commented heading." - (if (let ((hd (nth 4 (org-heading-components)))) - (and hd (string-match (concat "^" org-comment-string) hd))) - t - (save-excursion - (and (org-up-heading-safe) - (org-babel-under-commented-heading-p))))) + (unless (org-before-first-heading-p) + (if (let ((hd (nth 4 (org-heading-components)))) + (and hd (string-match (concat "^" org-comment-string) hd))) + t + (save-excursion + (and (org-up-heading-safe) + (org-babel-under-commented-heading-p)))))) (defun org-babel-tangle-collect-blocks (&optional language tangle-file) "Collect source blocks in the current Org-mode file.