summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAchim Gratz <Stromeko@Stromeko.DE>2014-03-25 18:55:13 +0100
committerAchim Gratz <Stromeko@Stromeko.DE>2014-03-25 18:55:13 +0100
commite89adba685dfe6dad4e67438930945fec8d311a3 (patch)
treee902e9350040eb73c78f5130b9e50ab707729f42
parent0e344ae04a6b7673578ba8306ce330e12554b818 (diff)
downloadorg-mode-e89adba685dfe6dad4e67438930945fec8d311a3.tar.gz
ob-gnuplot: create a proper table even when handed just a vector
* lisp/ob-gnuplot.el (org-babel-gnuplot-process-vars): `org-babel-gnuplot-table-to-data´ expects a table, so we need to construct one when Babel hands us a vector. Thanks to Eric Fraga for reporting the bug. http://permalink.gmane.org/gmane.emacs.orgmode/84072
-rw-r--r--lisp/ob-gnuplot.el13
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/ob-gnuplot.el b/lisp/ob-gnuplot.el
index 8767e88..ffe5dcf 100644
--- a/lisp/ob-gnuplot.el
+++ b/lisp/ob-gnuplot.el
@@ -85,10 +85,15 @@ code."
(lambda (pair)
(cons
(car pair) ;; variable name
- (if (listp (cdr pair)) ;; variable value
- (org-babel-gnuplot-table-to-data
- (cdr pair) (org-babel-temp-file "gnuplot-") params)
- (cdr pair))))
+ (let* ((val (cdr pair)) ;; variable value
+ (lp (listp val)))
+ (if lp
+ (org-babel-gnuplot-table-to-data
+ (let* ((first (car val))
+ (tablep (or (listp first) (symbolp first))))
+ (if tablep val (mapcar 'list val)))
+ (org-babel-temp-file "gnuplot-") params)
+ val))))
(mapcar #'cdr (org-babel-get-header params :var)))))
(defun org-babel-expand-body:gnuplot (body params)