From c69e49f551d4dbef0753512ac7dd89115478244b Mon Sep 17 00:00:00 2001 From: chasberry Date: Thu, 13 Nov 2014 20:49:57 -0800 Subject: [PATCH 2/3] lisp/ob-exp.el: Enable removable inline src results * lisp/ob-exp.el (org-babel-exp-do-export): After inline src block clean `@@:@@' or `{{{results(}}}'. --- 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..83359e5 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-delete-babel-snippet 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)