[nongnu] elpa/emacsql 487254ad31 2/3: Use set-process-sentinel

[ELPA Syncer]

branch: elpa/emacsql
commit 487254ad318f4aa745bd064f51f2fe35488f578f
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: Jonas Bernoulli <jonas@bernoul.li>

    Use set-process-sentinel
---
 emacsql-mysql.el  | 4 ++--
 emacsql-sqlite.el | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/emacsql-mysql.el b/emacsql-mysql.el
index 4b98ea6ab7..cf09e996df 100644
--- a/emacsql-mysql.el
+++ b/emacsql-mysql.el
@@ -87,8 +87,8 @@ http://dev.mysql.com/doc/refman/5.5/en/reserved-words.html";)
            (connection (make-instance 'emacsql-mysql-connection
                                       :process process
                                       :dbname database)))
-      (setf (process-sentinel process)
-            (lambda (proc _) (kill-buffer (process-buffer proc))))
+      (set-process-sentinel process
+                            (lambda (proc _) (kill-buffer (process-buffer 
proc))))
       (when debug (emacsql-enable-debugging connection))
       (emacsql connection
                [:set-session (= sql-mode 'NO_BACKSLASH_ESCAPES\,ANSI_QUOTES)])
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index e882bda743..0f3d176b37 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -72,8 +72,8 @@ used.")
          (process (start-process
                    "emacsql-sqlite" buffer emacsql-sqlite-executable 
fullfile)))
     (setf (slot-value connection 'process) process)
-    (setf (process-sentinel process)
-          (lambda (proc _) (kill-buffer (process-buffer proc))))
+    (set-process-sentinel process
+                          (lambda (proc _) (kill-buffer (process-buffer 
proc))))
     (when (memq (process-status process) '(exit signal))
       (error "%s has failed immediately" emacsql-sqlite-executable))
     (emacsql-wait connection)