diff options
| author | Paul Eggert | 2014-04-22 14:32:51 -0700 |
|---|---|---|
| committer | Paul Eggert | 2014-04-22 14:32:51 -0700 |
| commit | 42e910349d699ee3f8024371ca1e60e015fc6aa7 (patch) | |
| tree | ba589f3f7c278671f0ae9c5c8f15c241ae8dd674 /lisp/org/ob-gnuplot.el | |
| parent | 4f96579371290b201a973072a1c2f237755bb954 (diff) | |
| parent | 34e856d5ac828753b7be20e2471f39fb613f7f40 (diff) | |
| download | emacs-42e910349d699ee3f8024371ca1e60e015fc6aa7.tar.gz emacs-42e910349d699ee3f8024371ca1e60e015fc6aa7.zip | |
Merge from emacs-24; up to 2014-04-22T20:19:17Z!eggert@cs.ucla.edu
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) |