aboutsummaryrefslogtreecommitdiffhomepage
path: root/generic/pg-response.el
diff options
context:
space:
mode:
authorGravatar David Aspinall <da@inf.ed.ac.uk>2006-09-24 15:31:15 +0000
committerGravatar David Aspinall <da@inf.ed.ac.uk>2006-09-24 15:31:15 +0000
commit1238764f2bc4ff6dcfa697f05cbf76f7c67c7837 (patch)
treef04a449fd85263b47802fc78fa6f415ec10ce536 /generic/pg-response.el
parent8b4ae66f0d8f18a4ad088a8403d8500f8d6ab0c4 (diff)
Tweaks to buffer history mode. Still intermediate version.
Diffstat (limited to 'generic/pg-response.el')
-rw-r--r--generic/pg-response.el3
1 files changed, 2 insertions, 1 deletions
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)))