fixup! org-babel-tangle-single-block: Do not rely on match-data from `org-back-to-heading'
This commit is contained in:
parent
79ec91584c
commit
f56ca5009e
|
@ -570,7 +570,7 @@ non-nil, return the full association list to be used by
|
||||||
(buffer-substring
|
(buffer-substring
|
||||||
(max (condition-case nil
|
(max (condition-case nil
|
||||||
(save-excursion
|
(save-excursion
|
||||||
(org-back-to-heading t) ; Sets match data
|
(org-back-to-heading t)
|
||||||
(re-search-forward org-outline-regexp))
|
(re-search-forward org-outline-regexp))
|
||||||
(error (point-min)))
|
(error (point-min)))
|
||||||
(save-excursion
|
(save-excursion
|
||||||
|
|
|
@ -100,7 +100,7 @@ echo 1
|
||||||
(delete-file "test-ob-tangle.sh"))))))
|
(delete-file "test-ob-tangle.sh"))))))
|
||||||
|
|
||||||
(ert-deftest ob-tangle/comment-org ()
|
(ert-deftest ob-tangle/comment-org ()
|
||||||
"Test :commends org."
|
"Test :comments org."
|
||||||
(should
|
(should
|
||||||
(string-match
|
(string-match
|
||||||
(regexp-quote ";; Function heading")
|
(regexp-quote ";; Function heading")
|
||||||
|
|
Loading…
Reference in New Issue