From 78a365d223a969f407efa524b0c45e701b4ae908 Mon Sep 17 00:00:00 2001 From: chasberry Date: Tue, 11 Nov 2014 12:53:01 -0800 Subject: [PATCH 1/5] lisp/ob-exp.el: Enable removable inline src results * lisp/ob-exp.el (org-babel-exp-do-export): Clean `@@babel:result@@' after inline src block. --- 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)