ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove inlinetask END line when excluded from export

This commit is contained in:
Carsten Dominik 2009-10-10 16:54:13 +02:00
parent e079584e56
commit 0a7e68575f
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2009-10-10 Carsten Dominik <carsten.dominik@gmail.com>
* org-exp.el (org-export-handle-export-tags): Remove inlinetask
END if present.
2009-10-07 Carsten Dominik <carsten.dominik@gmail.com>
* org-latex.el (org-export-latex-tables): Don't format in

6
lisp/org-exp.el
View File

@ -1603,8 +1603,10 @@ removed as well."
(when (org-at-heading-p)
(org-back-to-heading t)
(setq beg (point))
(org-end-of-subtree t)
(delete-region beg (point)))))
(org-end-of-subtree t t)
(delete-region beg (point))
(when (featurep 'org-inlinetask)
(org-inlinetask-remove-END-maybe)))))
;; Remove everything that is now still marked for deletion
(goto-char (point-min))
(while (setq beg (text-property-any (point-min) (point-max) :org-delete t))