Browse Source

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.
Eric Schulte 13 years ago
parent
commit
caaadd91a9
1 changed files with 5 additions and 1 deletions
  1. 5 1
      lisp/org-exp-blocks.el

+ 5 - 1
lisp/org-exp-blocks.el

@@ -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)))))