[elpa] externals/pq f896dabb85 22/63: Install notice receiver while fetching results as well.

[ELPA Syncer]

branch: externals/pq
commit f896dabb85f8d0854d2c38df85c4fc762e9781f4
Author: Andreas Seltenreich <seltenreich@gmx.de>
Commit: Andreas Seltenreich <seltenreich@gmx.de>

    Install notice receiver while fetching results as well.
---
 pq.c | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/pq.c b/pq.c
index 52c6350be3..17f67a9e3b 100644
--- a/pq.c
+++ b/pq.c
@@ -160,6 +160,9 @@ Fpq_query (emacs_env *env, ptrdiff_t nargs, emacs_value 
args[], void *data)
   if (!result_ok(env, res))
     return Qnil;
 
+  old_notice_rx =
+       PQsetNoticeReceiver(conn, pq_notice_rx, env);
+
   int ntuples = PQntuples(res);
   int nfields = PQnfields(res);
 
@@ -185,6 +188,8 @@ Fpq_query (emacs_env *env, ptrdiff_t nargs, emacs_value 
args[], void *data)
     emacs_value args[2] = {tuple, list};
     list = env->funcall (env, Qcons, 2, args);
   }
+
+  PQsetNoticeReceiver(conn, old_notice_rx, NULL);
   PQclear(res);
   return list;
 }