Browse Source

Merge branch 'maint'

Bastien 4 years ago
parent
commit
f838dbae77
1 changed files with 5 additions and 1 deletions
  1. 5 1
      lisp/ob-sqlite.el

+ 5 - 1
lisp/ob-sqlite.el

@@ -125,7 +125,7 @@ This function is called by `org-babel-execute-src-block'."
     (mapcar (lambda (row)
     (mapcar (lambda (row)
 	      (if (eq 'hline row)
 	      (if (eq 'hline row)
 		  'hline
 		  'hline
-		(mapcar #'org-babel-string-read row)))
+		(mapcar #'org-babel-sqlite--read-cell row)))
 	    result)))
 	    result)))
 
 
 (defun org-babel-sqlite-offset-colnames (table headers-p)
 (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."
 Prepare SESSION according to the header arguments specified in PARAMS."
   (error "SQLite sessions not yet implemented"))
   (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)
 (provide 'ob-sqlite)
 
 
 ;;; ob-sqlite.el ends here
 ;;; ob-sqlite.el ends here