diff options
Diffstat (limited to 'lisp/org/ob-gnuplot.el')
| -rw-r--r-- | lisp/org/ob-gnuplot.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/org/ob-gnuplot.el b/lisp/org/ob-gnuplot.el index 8767e88e4c3..ffe5dcf59df 100644 --- a/lisp/org/ob-gnuplot.el +++ b/lisp/org/ob-gnuplot.el | |||
| @@ -85,10 +85,15 @@ code." | |||
| 85 | (lambda (pair) | 85 | (lambda (pair) |
| 86 | (cons | 86 | (cons |
| 87 | (car pair) ;; variable name | 87 | (car pair) ;; variable name |
| 88 | (if (listp (cdr pair)) ;; variable value | 88 | (let* ((val (cdr pair)) ;; variable value |
| 89 | (org-babel-gnuplot-table-to-data | 89 | (lp (listp val))) |
| 90 | (cdr pair) (org-babel-temp-file "gnuplot-") params) | 90 | (if lp |
| 91 | (cdr pair)))) | 91 | (org-babel-gnuplot-table-to-data |
| 92 | (let* ((first (car val)) | ||
| 93 | (tablep (or (listp first) (symbolp first)))) | ||
| 94 | (if tablep val (mapcar 'list val))) | ||
| 95 | (org-babel-temp-file "gnuplot-") params) | ||
| 96 | val)))) | ||
| 92 | (mapcar #'cdr (org-babel-get-header params :var))))) | 97 | (mapcar #'cdr (org-babel-get-header params :var))))) |
| 93 | 98 | ||
| 94 | (defun org-babel-expand-body:gnuplot (body params) | 99 | (defun org-babel-expand-body:gnuplot (body params) |