From 3dd868bcd798e6763ec67ba0d2661834e09bb6e9 Mon Sep 17 00:00:00 2001 From: Nicholas Savage Date: Tue, 4 May 2021 11:02:20 -0400 Subject: [PATCH] lisp/ob-sqlite.el: Prevent output from being incorrectly parsed if it contains double-quotes. * lisp/ob-sqlite.el (org-babel-sqlite--read-cell): New function. lisp/ob-sqlite.el (org-babel-sqlite-table-or-scalar): Use `org-babel-sqlite--read-cell' instead of `org-babel-string-read' to prevent data from being ignored if it contains double-quotes. Reported-by: learnorchids@gmail.com Link: https://orgmode.org/list/CAK5xwica4i8h09ObzCVPx2pe-T6B0_ju_MXiduRiY7GH+PkE_A@mail.gmail.com/ --- lisp/ob-sqlite.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/ob-sqlite.el b/lisp/ob-sqlite.el index c0c6f3c97..d227ba69d 100644 --- a/lisp/ob-sqlite.el +++ b/lisp/ob-sqlite.el @@ -125,7 +125,7 @@ This function is called by `org-babel-execute-src-block'." (mapcar (lambda (row) (if (eq 'hline row) 'hline - (mapcar #'org-babel-string-read row))) + (mapcar #'org-babel-sqlite--read-cell row))) result))) (defun org-babel-sqlite-offset-colnames (table headers-p) @@ -139,6 +139,10 @@ This function is called by `org-babel-execute-src-block'." Prepare SESSION according to the header arguments specified in PARAMS." (error "SQLite sessions not yet implemented")) +(defun org-babel-sqlite--read-cell (cell) + "Process CELL to remove unnecessary characters." + (org-babel-read cell t)) + (provide 'ob-sqlite) ;;; ob-sqlite.el ends here -- 2.20.1