diff options
Diffstat (limited to 'lisp/org/ob-sqlite.el')
| -rw-r--r-- | lisp/org/ob-sqlite.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/org/ob-sqlite.el b/lisp/org/ob-sqlite.el index 50e8ac1ab90..38058274a9a 100644 --- a/lisp/org/ob-sqlite.el +++ b/lisp/org/ob-sqlite.el | |||
| @@ -123,10 +123,7 @@ This function is called by `org-babel-execute-src-block'." | |||
| 123 | (if (listp val) | 123 | (if (listp val) |
| 124 | (let ((data-file (org-babel-temp-file "sqlite-data-"))) | 124 | (let ((data-file (org-babel-temp-file "sqlite-data-"))) |
| 125 | (with-temp-file data-file | 125 | (with-temp-file data-file |
| 126 | (insert (orgtbl-to-csv | 126 | (insert (orgtbl-to-csv val nil))) |
| 127 | val '(:fmt (lambda (el) (if (stringp el) | ||
| 128 | el | ||
| 129 | (format "%S" el))))))) | ||
| 130 | data-file) | 127 | data-file) |
| 131 | (if (stringp val) val (format "%S" val)))) | 128 | (if (stringp val) val (format "%S" val)))) |
| 132 | body))) | 129 | body))) |