Merge branch 'bugfix'
This commit is contained in:
commit
200d168275
|
@ -571,7 +571,7 @@ non-nil, return the full association list to be used by
|
|||
(max (condition-case nil
|
||||
(save-excursion
|
||||
(org-back-to-heading t) ; Sets match data
|
||||
(match-end 0))
|
||||
(re-search-forward org-outline-regexp))
|
||||
(error (point-min)))
|
||||
(save-excursion
|
||||
(if (re-search-backward
|
||||
|
|
|
@ -99,6 +99,23 @@ echo 1
|
|||
(buffer-string)))
|
||||
(delete-file "test-ob-tangle.sh"))))))
|
||||
|
||||
(ert-deftest ob-tangle/comment-org ()
|
||||
"Test :commends org."
|
||||
(should
|
||||
(string-match
|
||||
(regexp-quote ";; Function heading")
|
||||
(org-test-with-temp-text-in-file
|
||||
"* Function heading
|
||||
|
||||
#+begin_src elisp :tangle \"test-ob-tange.el\" :comments org
|
||||
(message \"FOO\")
|
||||
#+end_src"
|
||||
(unwind-protect
|
||||
(progn (org-babel-tangle)
|
||||
(with-temp-buffer (insert-file-contents "test-ob-tange.el")
|
||||
(buffer-string)))
|
||||
(delete-file "test-ob-tange.el"))))))
|
||||
|
||||
(ert-deftest ob-tangle/comment-links-numbering ()
|
||||
"Test numbering of source blocks when commenting with links."
|
||||
(should
|
||||
|
|
Loading…
Reference in New Issue