From a2d94ffc8eaebf8fec29e0e18d379e1482658db3 Mon Sep 17 00:00:00 2001
From: Dan Davison <davison@stats.ox.ac.uk>
Date: Tue, 23 Feb 2010 07:31:43 -0700
Subject: [PATCH 1/2] babel: prevent quoting of strings in shell variables

---
 contrib/babel/lisp/langs/org-babel-sh.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/contrib/babel/lisp/langs/org-babel-sh.el b/contrib/babel/lisp/langs/org-babel-sh.el
index 055b5641b..940b7d49f 100644
--- a/contrib/babel/lisp/langs/org-babel-sh.el
+++ b/contrib/babel/lisp/langs/org-babel-sh.el
@@ -93,10 +93,10 @@ specifying a var of the same value."
       (flet ((deep-string (el)
                           (if (listp el)
                               (mapcar #'deep-string el)
-                            (format "%S" el))))
-        (format "$(cat <<BABEL_TABLE\n%s\nBABEL_TABLE\n)"
+                           (org-babel-sh-var-to-sh el sep))))
+       (format "$(cat <<BABEL_TABLE\n%s\nBABEL_TABLE\n)"
                 (orgtbl-to-generic (deep-string var) (list :sep (or sep "\t")))))
-    (format "%S" var)))
+    (if (stringp var) (format "%s" var) (format "%S" var))))
 
 (defun org-babel-sh-table-or-results (results)
   "If the results look like a table, then convert them into an

From 8625e5c0bc09f032746090710bce740d9794c56d Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Tue, 23 Feb 2010 08:16:11 -0700
Subject: [PATCH 2/2] babel: gnuplot can now return it's string output -- when
 session is set to "none"

---
 contrib/babel/lisp/langs/org-babel-gnuplot.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/contrib/babel/lisp/langs/org-babel-gnuplot.el b/contrib/babel/lisp/langs/org-babel-gnuplot.el
index 2053f3e8d..5af344dca 100644
--- a/contrib/babel/lisp/langs/org-babel-gnuplot.el
+++ b/contrib/babel/lisp/langs/org-babel-gnuplot.el
@@ -87,7 +87,9 @@ called by `org-babel-execute-src-block'."
            (y-labels (plist-get params :ylabels))
            (timefmt (plist-get params :timefmt))
            (time-ind (or (plist-get params :timeind)
-                         (when timefmt 1))))
+                         (when timefmt 1)))
+           (result-type (cdr (assoc :results params)))
+           output)
       (flet ((add-to-body (text)
                           (setq body (concat text "\n" body))))
         ;; append header argument settings to body
@@ -132,12 +134,16 @@ called by `org-babel-execute-src-block'."
               (with-temp-file script-file
                 (insert (concat body "\n")))
               (message "gnuplot \"%s\"" script-file)
-              (message (shell-command-to-string (format "gnuplot \"%s\"" script-file))))
+              (setq output
+                    (shell-command-to-string (format "gnuplot \"%s\"" script-file)))
+              (message output))
           (with-temp-buffer
             (insert (concat body "\n"))
             (gnuplot-mode)
             (gnuplot-send-buffer-to-gnuplot)))
-        out-file))))
+        (if (member "output" (split-string result-type))
+            output
+          out-file)))))
 
 (defun org-babel-prep-session:gnuplot (session params)
   "Prepare SESSION according to the header arguments specified in PARAMS."