From 6bc9acb7376ea16fe149bf4749fa56387ce526cf Mon Sep 17 00:00:00 2001 From: chasberry Date: Thu, 13 Nov 2014 20:49:57 -0800 Subject: [PATCH 3/5] ob-exp.el: Enable removal of {{{results(...)}}} * ob-exp.el (org-babel-do-export): `clean' lambda form removes inline results wrapped in `results{{{(' `)}}}' by calling `org-babel-remove-inline-result'. --- lisp/ob-exp.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ob-exp.el b/lisp/ob-exp.el index edb889c..afe6cd9 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 info) + (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)) -- 1.9.3 (Apple Git-50)