diff options
| author | Eli Zaretskii | 2017-09-29 13:24:05 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2017-09-29 13:24:05 +0300 |
| commit | 33401b26b1aecf61adfd77fa7c4e29913c0bb3d7 (patch) | |
| tree | 0238b3a9e51c4a37f8fe35feb11a66baeb2d1f3d /lisp/org/ob-sqlite.el | |
| parent | c1ac8c170f17a98b7e5d6e098f707daeb71ea27d (diff) | |
| parent | d4b2bbdc73ace5cb0971a32a75941486489d1cc5 (diff) | |
| download | emacs-33401b26b1aecf61adfd77fa7c4e29913c0bb3d7.tar.gz emacs-33401b26b1aecf61adfd77fa7c4e29913c0bb3d7.zip | |
Merge branch 'emacs-26' of git.savannah.gnu.org:/srv/git/emacs into emacs-26
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))) |