tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

ob-tangle.el (org-babel-under-commented-heading-p): Throw nil when called before the first heading

Browse source 
* ob-tangle.el (org-babel-under-commented-heading-p): Throw
nil when called before the first heading.

Thanks to John Kitchin for reporting this.
This commit is contained in:
Bastien Guerry 2014-01-30 00:57:24 +01:00
parent 72ad5257fc
commit 9368d317fb
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/ob-tangle.el
View file

@ -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.