[nongnu] elpa/emacsql 6f1e375a2e 367/427: Better escaping of NUL and control characters (#42)

[ELPA Syncer]

branch: elpa/emacsql
commit 6f1e375a2ebb558138b73d2a63f2077da1028f92
Author: Christopher Wellons <wellons@nullprogram.com>
Commit: Christopher Wellons <wellons@nullprogram.com>

    Better escaping of NUL and control characters (#42)
---
 emacsql-compiler.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/emacsql-compiler.el b/emacsql-compiler.el
index bfa03f228c..c16e774a2e 100644
--- a/emacsql-compiler.el
+++ b/emacsql-compiler.el
@@ -55,9 +55,6 @@
     (while (re-search-forward "'" nil t)
       (replace-match "''"))
     (setf (point) (point-min))
-    (while (re-search-forward "\0" nil t)
-      (replace-match "\\\\0"))
-    (setf (point) (point-min))
     (insert "'")
     (setf (point) (point-max))
     (insert "'")
@@ -93,7 +90,8 @@
 
 (defun emacsql-escape-scalar (value)
   "Escape VALUE for sending to SQLite."
-  (let ((print-escape-newlines t))
+  (let ((print-escape-newlines t)
+        (print-escape-control-characters t))
     (cond ((null value) "NULL")
           ((numberp value) (prin1-to-string value))
           ((emacsql-quote-scalar (prin1-to-string value))))))