emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/emacsql 777abb9e9e 09/11: Use `oref' instead of `slot-valu


From: ELPA Syncer
Subject: [nongnu] elpa/emacsql 777abb9e9e 09/11: Use `oref' instead of `slot-value'
Date: Fri, 19 Jan 2024 19:00:24 -0500 (EST)

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

    Use `oref' instead of `slot-value'
---
 emacsql-sqlite-builtin.el | 2 +-
 emacsql-sqlite-module.el  | 2 +-
 emacsql-sqlite.el         | 2 +-
 3 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/emacsql-sqlite-builtin.el b/emacsql-sqlite-builtin.el
index 747ce84de5..0f8a32e209 100644
--- a/emacsql-sqlite-builtin.el
+++ b/emacsql-sqlite-builtin.el
@@ -33,7 +33,7 @@
   ((connection emacsql-sqlite-builtin-connection) &rest _)
   (require (quote sqlite))
   (oset connection handle
-        (sqlite-open (slot-value connection 'file)))
+        (sqlite-open (oref connection file)))
   (when emacsql-global-timeout
     (emacsql connection [:pragma (= busy-timeout $s1)]
              (/ (* emacsql-global-timeout 1000) 2)))
diff --git a/emacsql-sqlite-module.el b/emacsql-sqlite-module.el
index 92de2c10b8..4c5cbd05d9 100644
--- a/emacsql-sqlite-module.el
+++ b/emacsql-sqlite-module.el
@@ -35,7 +35,7 @@
   ((connection emacsql-sqlite-module-connection) &rest _)
   (require (quote sqlite3))
   (oset connection handle
-        (sqlite3-open (or (slot-value connection 'file) ":memory:")
+        (sqlite3-open (or (oref connection file) ":memory:")
                       sqlite-open-readwrite
                       sqlite-open-create))
   (when emacsql-global-timeout
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index adc6de8489..a0728bfedc 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -66,7 +66,7 @@ used.")
          ;; See https://debbugs.gnu.org/cgi/bugreport.cgi?bug=60872#11.
          (coding-system-for-write 'utf-8)
          (coding-system-for-read 'utf-8)
-         (file (slot-value connection 'file))
+         (file (oref connection file))
          (buffer (generate-new-buffer " *emacsql-sqlite*"))
          (fullfile (if file (expand-file-name file) ":memory:"))
          (process (start-process



reply via email to

[Prev in Thread] Current Thread [Next in Thread]