diff options
Diffstat (limited to 'generic/pg-response.el')
| -rw-r--r-- | generic/pg-response.el | 3 |
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))) |