diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-24 20:18:10 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-24 20:18:10 +0200 |
| commit | 18933e07da1f255fe30d236cd1d525373084f0d0 (patch) | |
| tree | 05029c131e83adac88a05f71034ceb9f63b7b49d | |
| parent | 908d883f98c06a5c211efdbebbb0f27cde335fc8 (diff) | |
| download | geiser-chez-18933e07da1f255fe30d236cd1d525373084f0d0.tar.gz geiser-chez-18933e07da1f255fe30d236cd1d525373084f0d0.tar.bz2 | |
Bug fix: delete results buffers only when a new request is available.
| -rw-r--r-- | elisp/geiser-connection.el | 5 |
1 files changed, 2 insertions, 3 deletions
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)))))) |