diff options
| author |  David Aspinall <da@inf.ed.ac.uk> | 2010-08-17 12:16:43 +0000 |
|---|---|---|
| committer | David Aspinall <da@inf.ed.ac.uk> | 2010-08-17 12:16:43 +0000 |
| commit | 647662228f6c6e0c1ba0239cbe9b21c6d5c782a9 (patch) | |
| tree | 78dccd06977379878082caf25e989eafcf437ce3 /generic/pg-response.el | |
| parent | 6a44df852f8fcba8b0c0c9362a7da00ece7a1324 (diff) | |
pg-response-has-error-location: save point in response buffer
Diffstat (limited to 'generic/pg-response.el')
| -rw-r--r-- | generic/pg-response.el | 5 |
1 files 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))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |