branch: elpa/emacsql
commit 1becb009454f317198cde75b98bb25be2f6f8acd
Author: Jonas Bernoulli <[email protected]>
Commit: Jonas Bernoulli <[email protected]>
Define a few constants as such
---
emacsql-mysql.el | 2 +-
emacsql-psql.el | 2 +-
emacsql-sqlite.el | 4 ++--
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/emacsql-mysql.el b/emacsql-mysql.el
index 9927b561ac..dbc7c44233 100644
--- a/emacsql-mysql.el
+++ b/emacsql-mysql.el
@@ -28,7 +28,7 @@
(defvar emacsql-mysql-sentinel "--------------\n\n--------------\n\n"
"What MySQL will print when it has completed its output.")
-(defvar emacsql-mysql-reserved
+(defconst emacsql-mysql-reserved
(emacsql-register-reserved
'(ACCESSIBLE ADD ALL ALTER ANALYZE AND AS ASC ASENSITIVE BEFORE
BETWEEN BIGINT BINARY BLOB BOTH BY CALL CASCADE CASE CHANGE CHAR
diff --git a/emacsql-psql.el b/emacsql-psql.el
index 14a74aed8a..6f7187492a 100644
--- a/emacsql-psql.el
+++ b/emacsql-psql.el
@@ -43,7 +43,7 @@
nil)))
(error :cannot-execute)))))
-(defvar emacsql-psql-reserved
+(defconst emacsql-psql-reserved
(emacsql-register-reserved
'(ALL ANALYSE ANALYZE AND ANY AS ASC AUTHORIZATION BETWEEN BINARY
BOTH CASE CAST CHECK COLLATE COLUMN CONSTRAINT CREATE CROSS
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index dd0812c21d..337a8c7f16 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -48,7 +48,7 @@
user-emacs-directory)))
"Path to the EmacSQL backend (this is not the sqlite3 shell).")
-(defvar emacsql-sqlite-reserved
+(defconst emacsql-sqlite-reserved
(emacsql-register-reserved
'(ABORT ACTION ADD AFTER ALL ALTER ANALYZE AND AS ASC ATTACH
AUTOINCREMENT BEFORE BEGIN BETWEEN BY CASCADE CASE CAST CHECK
@@ -128,7 +128,7 @@ buffer. This is for debugging purposes."
(process-send-string process message)
(process-send-string process "\n")))
-(defvar emacsql-sqlite-condition-alist
+(defconst emacsql-sqlite-condition-alist
'(((1 4 9 12 17 18 20 21 22 25) emacsql-error)
((2) emacsql-internal)
((3 8 10 13 14 15 23) emacsql-access)
