tec/org-mode
tec
/
org-mode
forked from mirrors/org-mode
1
0
Fork 0
Code Pull Requests Releases Activity

cleaning up markers in org-exp-blocks -- Thanks again to Nicolas Goaziou for advice 

* lisp/org-exp-blocks.el (org-export-blocks-preprocess): Explicitly
  cleaning up markers.
This commit is contained in:
Eric Schulte 2011-08-22 08:31:09 -06:00
parent cb449a672e
commit caaadd91a9
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -210,7 +210,11 @@ which defaults to the value of `org-export-blocks-witheld'."
(delete-region match-start match-end)
(goto-char match-start) (insert replacement)
(unless preserve-indent
(indent-code-rigidly match-start (point) indentation))))))
(indent-code-rigidly match-start (point) indentation)))))
;; cleanup markers
(set-marker match-start nil)
(set-marker body-start nil)
(set-marker match-end nil))
(setq start (point))))
(interblock start (point-max))
(run-hooks 'org-export-blocks-postblock-hook)))))