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

adding commented out code which should be activated once org-element has been merged 

Used to clean up orphaned keywords of blocks removed by
  org-export-blocks-preprocess.
This commit is contained in:
Eric Schulte 2012-05-04 09:17:13 -04:00
parent 72ca00ca09
commit dec32064a7
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-exp-blocks.el
View File

@ -208,6 +208,12 @@ which defaults to the value of `org-export-blocks-witheld'."
(let ((replacement (save-match-data
(if (memq type org-export-blocks-witheld) ""
(apply func body headers)))))
;; ;; un-comment this code after the org-element merge
;; (save-match-data
;; (when (and replacement (string= replacement ""))
;; (delete-region
;; (car (org-element-collect-affiliated-keyword))
;; match-start)))
(when replacement
(delete-region match-start match-end)
(goto-char match-start) (insert replacement)