From 1da53c668aa7f12aff77c5afc8265fcbbf229555 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Fri, 11 Jun 2010 10:16:56 -0700 Subject: [PATCH] babel: bug fix in exporter wrt: contents of lob info lists * contrib/babel/lisp/org-babel-exp.el (org-babel-exp-lob-one-liners): exportation of #+lob and #+call type lines is now correctly handling the addition of the indentation information to the info list --- contrib/babel/lisp/org-babel-exp.el | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/contrib/babel/lisp/org-babel-exp.el b/contrib/babel/lisp/org-babel-exp.el index daea7c779..301837dc5 100644 --- a/contrib/babel/lisp/org-babel-exp.el +++ b/contrib/babel/lisp/org-babel-exp.el @@ -135,17 +135,19 @@ options are taken from `org-babel-default-header-args'." (while (and (< (point) end) (re-search-forward org-babel-lob-one-liner-regexp nil t)) (setq replacement - (save-match-data - (org-babel-exp-do-export - (list "emacs-lisp" "results" - (org-babel-merge-params - org-babel-default-header-args - (org-babel-parse-header-arguments - (org-babel-clean-text-properties - (concat ":var results=" - (mapconcat #'identity - (org-babel-lob-get-info) " ")))))) - 'lob))) + (let ((lob-info (org-babel-lob-get-info))) + (save-match-data + (org-babel-exp-do-export + (list "emacs-lisp" "results" + (org-babel-merge-params + org-babel-default-header-args + (org-babel-parse-header-arguments + (org-babel-clean-text-properties + (concat ":var results=" + (mapconcat #'identity + (butlast lob-info) " "))))) + (car (last lob-info))) + 'lob)))) (setq end (+ end (- (length replacement) (length (match-string 0))))) (replace-match replacement t t)))))