Bastien 4 лет назад
Родитель
Сommit
f838dbae77
1 измененных файлов с 5 добавлено и 1 удалено
  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