branch: elpa/emacsql
commit 20cdad6fe6d7ada00cd74b096fe5208e37e6ce5c
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Include sqlite error code in error data
For backward compatibility put it after the message. This means
changing the order for the `emacsql-protocol-mixin' class, but
that method isn't actually being used by any backend.
---
emacsql-sqlite.el | 2 +-
emacsql.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/emacsql-sqlite.el b/emacsql-sqlite.el
index 7fad320ef4..c9439918d0 100644
--- a/emacsql-sqlite.el
+++ b/emacsql-sqlite.el
@@ -144,7 +144,7 @@ buffer. This is for debugging purposes."
(signal
(or (cl-second (cl-assoc code emacsql-sqlite-condition-alist :test #'memql))
'emacsql-error)
- (list message)))
+ (list message code)))
;;; SQLite compilation
diff --git a/emacsql.el b/emacsql.el
index c35c6782cd..d3803727b1 100644
--- a/emacsql.el
+++ b/emacsql.el
@@ -210,7 +210,7 @@ must display as \"nil\".")
"Signal a specific condition for CODE from CONNECTION.
Subclasses should override this method in order to provide more
specific error conditions."
- (signal 'emacsql-error (list code message)))
+ (signal 'emacsql-error (list message code)))
(cl-defmethod emacsql-parse ((connection emacsql-protocol-mixin))
"Parse well-formed output into an s-expression."
