From ce6f74bf9f5d46f33b5da23ead338d13985d9e39 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Wed, 11 Sep 2002 21:37:22 +0000
Subject: Don't insert blank line at top of response buffer.

---
 generic/pg-response.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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))
-- 
cgit v1.2.3