diff options
| -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)))))) |