From 647662228f6c6e0c1ba0239cbe9b21c6d5c782a9 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Tue, 17 Aug 2010 12:16:43 +0000
Subject: pg-response-has-error-location: save point in response buffer

---
 generic/pg-response.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/generic/pg-response.el b/generic/pg-response.el
index ff5487bb..1e022fdb 100644
--- a/generic/pg-response.el
+++ b/generic/pg-response.el
@@ -419,8 +419,9 @@ and start at the first error."
 See `pg-next-error-regexp'."
   (if pg-next-error-regexp
       (proof-with-current-buffer-if-exists proof-response-buffer
-	(goto-char (point-min))
-	(re-search-forward pg-next-error-regexp nil t))))
+	(save-excursion
+	  (goto-char (point-min))
+	  (re-search-forward pg-next-error-regexp nil t)))))
 
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-- 
cgit v1.2.3