branch: elpa/emacsql
commit 7c774ffe129f81b4f87aee2783ce996ca0e71e00
Author: Christopher Wellons <well...@nullprogram.com>
Commit: Christopher Wellons <well...@nullprogram.com>
Improve MySQL error parsing.
---
emacsql-mysql.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/emacsql-mysql.el b/emacsql-mysql.el
index 6f228ba83f..0811a32320 100644
--- a/emacsql-mysql.el
+++ b/emacsql-mysql.el
@@ -55,9 +55,9 @@
(let ((standard-input (current-buffer)))
(setf (point) (point-min))
(when (looking-at "ERROR")
- (let ((beg (line-beginning-position))
- (end (line-end-position)))
- (signal 'emacsql-error (list (buffer-substring beg end)))))
+ (search-forward ": ")
+ (signal 'emacsql-error
+ (list (buffer-substring (point) (line-end-position)))))
(cl-loop until (looking-at emacsql-mysql-sentinel)
collect (read) into row
when (looking-at "\n")
