summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-11-22 08:18:26 -0700
committerEric Schulte <schulte.eric@gmail.com>2011-11-22 08:18:26 -0700
commit25a0a0212193ecc5e910696301b3a64a51f837e0 (patch)
tree74dd2664a90effb4b24fbcd6d289df617e96e3e9
parent1234afcc54fd029d06b4c5642374b3be784651ee (diff)
downloadorg-mode-25a0a0212193ecc5e910696301b3a64a51f837e0.tar.gz
no longer strip code and result names during block preprocessing
* lisp/ob-exp.el: Don't add `org-exp-res/src-name-cleanup' to `org-export-blocks-postblock-hook'.
-rw-r--r--lisp/ob-exp.el16
1 files changed, 0 insertions, 16 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el
index ffbe063..f2e20a0 100644
--- a/lisp/ob-exp.el
+++ b/lisp/ob-exp.el
@@ -36,7 +36,6 @@
(declare-function org-babel-eval-wipe-error-buffer "ob-eval" ())
(add-to-list 'org-export-interblocks '(src org-babel-exp-inline-src-blocks))
(add-to-list 'org-export-interblocks '(lob org-babel-exp-lob-one-liners))
-(add-hook 'org-export-blocks-postblock-hook 'org-exp-res/src-name-cleanup)
(org-export-blocks-add-block '(src org-babel-exp-src-block nil))
@@ -146,21 +145,6 @@ options and are taken from `org-babel-default-inline-header-args'."
(org-babel-examplize-region (match-beginning 1) (match-end 1))
(forward-char 2)))))))))
-(defun org-exp-res/src-name-cleanup ()
- "Clean up #+results and #+name lines for export.
-This function should only be called after all block processing
-has taken place."
- (interactive)
- (save-excursion
- (goto-char (point-min))
- (while (org-re-search-forward-unprotected
- (concat
- "\\("org-babel-src-name-regexp"\\|"org-babel-result-regexp"\\)")
- nil t)
- (delete-region
- (progn (beginning-of-line) (point))
- (progn (end-of-line) (+ 1 (point)))))))
-
(defun org-babel-in-example-or-verbatim ()
"Return true if point is in example or verbatim code.
Example and verbatim code include escaped portions of