diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-11-22 08:18:26 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-11-22 08:18:26 -0700 |
commit | 25a0a0212193ecc5e910696301b3a64a51f837e0 (patch) | |
tree | 74dd2664a90effb4b24fbcd6d289df617e96e3e9 | |
parent | 1234afcc54fd029d06b4c5642374b3be784651ee (diff) | |
download | org-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.el | 16 |
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 |