mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-07-20 03:56:28 +00:00
Code Releases Activity

org-export: Fix failing test

Browse source 
* testing/lisp/test-org-export.el: Fix failing test.
This commit is contained in:
Nicolas Goaziou 2013-01-30 21:32:50 +01:00
parent c1226e80d4
commit ed516e65dc
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
testing/lisp/test-org-export.el
View file

@ -564,9 +564,10 @@ body\n")))
(org-test-with-temp-text "* Headline 1\nBody 1\n* Headline 2\nBody 2" (org-test-with-temp-text "* Headline 1\nBody 1\n* Headline 2\nBody 2"
(let ((org-export-before-parsing-hook (let ((org-export-before-parsing-hook
'((lambda (backend) '((lambda (backend)
(org-map-entries (goto-char (point-min))
(lambda () (while (re-search-forward org-outline-regexp-bol nil t)
(delete-region (point) (progn (forward-line) (point))))))))) (delete-region
(point-at-bol) (progn (forward-line) (point))))))))
(org-export-as 'test))))))) (org-export-as 'test)))))))