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

ob-tangle: Fix `org-babel-under-commented-heading-p'

Browse source 
* lisp/ob-tangle.el (org-babel-under-commented-heading-p):
  `org-comment-string' is case sensitive and cannot be attached to
  other text.
This commit is contained in:
Nicolas Goaziou 2014-03-15 15:32:59 +01:00 committed by Eric Schulte
parent ee8d564479
commit 7ae45b5331
1 changed files with 11 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/ob-tangle.el
View file

@ -359,12 +359,17 @@ 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."
(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
"Non-nil if point is under a commented heading.
This function also checks ancestors of the current headline, if
any."
(cond
((org-before-first-heading-p) nil)
((let ((headline (nth 4 (org-heading-components))))
(and headline
(let ((case-fold-search nil))
(org-string-match-p (concat "^" org-comment-string "\\(?: \\|$\\)")
headline)))))
(t (save-excursion
(and (org-up-heading-safe)
(org-babel-under-commented-heading-p))))))