branch: elpa/emacsql
commit 777abb9e9ed47245636cdc7ea814ce12ad11e2ac
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
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
