From mboxrd@z Thu Jan 1 00:00:00 1970 From: Michael Gauland Subject: [PATCH] Wrap: override default Date: Mon, 10 Dec 2012 21:34:18 +0000 (UTC) Message-ID: Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([208.118.235.92]:41114) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TiAzm-0000WU-DE for emacs-orgmode@gnu.org; Mon, 10 Dec 2012 16:34:39 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TiAzl-00008g-ER for emacs-orgmode@gnu.org; Mon, 10 Dec 2012 16:34:38 -0500 Received: from plane.gmane.org ([80.91.229.3]:42330) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TiAzl-00007x-8D for emacs-orgmode@gnu.org; Mon, 10 Dec 2012 16:34:37 -0500 Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1TiAzt-0006uw-L2 for emacs-orgmode@gnu.org; Mon, 10 Dec 2012 22:34:45 +0100 Received: from 218-101-54-25.trimble.co.nz ([218.101.54.25]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 10 Dec 2012 22:34:45 +0100 Received: from mikelygee by 218-101-54-25.trimble.co.nz with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 10 Dec 2012 22:34:45 +0100 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org * lisp/ob.el (org-babel-insert-result): only wrap if the :wrap value is non-null. It can be convenient to specify the :wrap property at a higher level (e.g., file or tree), rather than for each block. This patch allows you to override the propery by specifying :wrap with no argument. TINYCHANGE --- lisp/ob.el | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 0aba523..757bc06 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -1998,7 +1998,8 @@ code ---- the results are extracted in the syntax of the source (setq end (point-marker)) ;; possibly wrap result (cond - ((assoc :wrap (nth 2 info)) + ((and (assoc :wrap (nth 2 info)) + (cdr (assoc :wrap (nth 2 info)))) (let ((name (or (cdr (assoc :wrap (nth 2 info))) "RESULTS"))) (funcall wrap (concat "#+BEGIN_" name) (concat "#+END_" name)))) ((member "html" result-params) -- 1.7.9