summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-connection.el5
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))))))