diff options
author | Charles Berry <ccberry@ucsd.edu> | 2015-01-29 12:05:31 -0800 |
---|---|---|
committer | Charles Berry <ccberry@ucsd.edu> | 2015-01-29 12:05:31 -0800 |
commit | f301ac8e9f542dc179cb3681bc7a61b0f448641b (patch) | |
tree | 45fb045dc14c8d0f26775447c495c23ca79438bf | |
parent | 638cde3ac9e49454450af40fca5663b0924eb155 (diff) | |
download | org-mode-f301ac8e9f542dc179cb3681bc7a61b0f448641b.tar.gz |
ob-exp.el: Enable removal of {{{results(...)}}}
* ob-exp.el (org-babel-exp-do-export): `clean' lambda form removes inline
results wrapped in `results{{{(' and `)}}}' by calling
`org-babel-remove-inline-result'.
-rw-r--r-- | lisp/ob-exp.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index edb889c..4c53a55 100644 --- a/lisp/ob-exp.el +++ b/lisp/ob-exp.el @@ -315,7 +315,9 @@ The function respects the value of the :exports header argument." (let ((silently (lambda () (let ((session (cdr (assoc :session (nth 2 info))))) (when (not (and session (equal "none" session))) (org-babel-exp-results info type 'silent))))) - (clean (lambda () (unless (eq type 'inline) (org-babel-remove-result info))))) + (clean (lambda () (if (eq type 'inline) + (org-babel-remove-inline-result) + (org-babel-remove-result info))))) (case (intern (or (cdr (assoc :exports (nth 2 info))) "code")) ('none (funcall silently) (funcall clean) "") ('code (funcall silently) (funcall clean) (org-babel-exp-code info type)) |