From ce75f3662895726cdea87427a4a9d5ec6365cee8 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 24 May 2009 20:18:10 +0200 Subject: Bug fix: delete results buffers only when a new request is available. --- elisp/geiser-connection.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'elisp') diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el index 8e31eaa..702f3b6 100644 --- a/elisp/geiser-connection.el +++ b/elisp/geiser-connection.el @@ -171,12 +171,11 @@ (let* ((buffer (geiser-con--connection-buffer con)) (req (geiser-con--connection-pop-request con)) (str (and req (geiser-con--request-string req))) - (cbuf (with-current-buffer (geiser-con--comint-buffer) - (erase-buffer) - (current-buffer)))) + (cbuf (geiser-con--comint-buffer))) (if (not (buffer-live-p buffer)) (geiser-con--connection-cancel-timer con) (when (and buffer req str) + (with-current-buffer cbuf (delete-region (point-min) (point-max))) (set-buffer buffer) (geiser-log--info "<%s>: %s" (geiser-con--request-id req) str) (comint-redirect-send-command (format "%s" str) cbuf nil t)))))) -- cgit v1.2.3