branch: elpa/pg
commit 5d3928aadd8b6fa3dde78a8a4a54db6dbea7a9cd
Author: Eric Marsden <eric.mars...@risk-engineering.org>
Commit: Eric Marsden <eric.mars...@risk-engineering.org>
Allow for two successive ErrorMessage-type messages (for OctoDB variant)
---
pg.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/pg.el b/pg.el
index 39b7d69671..1a2ef68f51 100644
--- a/pg.el
+++ b/pg.el
@@ -551,8 +551,8 @@ presented to the user."
;; immediately close their connection on error, so we ignore any errors
here.
(ignore-errors
(let ((c (pg-read-char con)))
- (unless (eql c ?Z)
- (message "Unexpected message type after ErrorMsg: %s" c)
+ (unless (member c '(?Z ?E))
+ (message "Unexpected message type after ErrorMsg (error was %s): %s"
e c)
(pg-unread-char con)))
;; Read message length then status, which we discard.
(pg-read-net-int con 4)
