From 1238764f2bc4ff6dcfa697f05cbf76f7c67c7837 Mon Sep 17 00:00:00 2001
From: David Aspinall
Date: Sun, 24 Sep 2006 15:31:15 +0000
Subject: Tweaks to buffer history mode.  Still intermediate version.

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

(limited to 'generic/pg-response.el')

diff --git a/generic/pg-response.el b/generic/pg-response.el
index ae010b19..66c7869a 100644
--- a/generic/pg-response.el
+++ b/generic/pg-response.el
@@ -266,7 +266,8 @@ Returns non-nil if response buffer was cleared."
 	  ;; (erase-buffer proof-response-buffer)
 	    (with-current-buffer proof-response-buffer
 	      (setq pg-response-next-error nil)	; all error msgs lost!
-	      (bufhist-checkpoint-and-erase)
+	      (if (> (buffer-size) 0)		     
+		  (bufhist-checkpoint-and-erase))
 	      (set-buffer-modified-p nil))))
       (setq pg-response-erase-flag erase-next-time)
       doit)))
-- 
cgit v1.2.3