diff options
| -rw-r--r-- | generic/pg-response.el | 5 |
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)) |