aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/org/ob-sqlite.el
diff options
context:
space:
mode:
authorEli Zaretskii2017-09-29 13:24:05 +0300
committerEli Zaretskii2017-09-29 13:24:05 +0300
commit33401b26b1aecf61adfd77fa7c4e29913c0bb3d7 (patch)
tree0238b3a9e51c4a37f8fe35feb11a66baeb2d1f3d /lisp/org/ob-sqlite.el
parentc1ac8c170f17a98b7e5d6e098f707daeb71ea27d (diff)
parentd4b2bbdc73ace5cb0971a32a75941486489d1cc5 (diff)
downloademacs-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.el5
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)))