Don't insert blank line at top of response buffer.

1 files changed, 4 insertions, 1 deletions

diff --git a/generic/pg-response.el b/generic/pg-response.el
index 731552fb..0f00e07a 100644
--- a/generic/pg-response.el
+++ b/generic/pg-response.el
@@ -161,7 +161,10 @@ Returns non-nil if response buffer was cleared."
 	;; the other cases when messages are inserted and to cope
 	;; with warnings after delayed output (non newline terminated).
 	(goto-char (point-max))
-	(newline)				
+	;; insert a newline before the new message unless the
+	;; buffer is empty
+	(unless (eq (point-min) (point-max))
+	  (newline))
 	(setq start (point))
 	(insert str)
 	(unless (bolp) (newline))