[elpa] externals-release/org f8ee4ab 2/2: lisp/ob-sqlite.el: Prevent output from being incorrectly parsed if it contains double-quotes.

[ELPA Syncer]

branch: externals-release/org
commit f8ee4ab4a78268bce4b2d7b95f6e1b9b956b6e9c
Author: Nicholas Savage <nick@nicksavage.ca>
Commit: Bastien <bzg@gnu.org>

    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.
    (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 6e21fa9..e23e278 100644
--- a/lisp/ob-sqlite.el
+++ b/lisp/ob-sqlite.el
@@ -137,7 +137,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)
@@ -151,6 +151,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