summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 18:29:25 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-07 18:29:25 +0100
commita1974c8ce4b38e472b961b6a256c4da67f6dcfaf (patch)
treebf6a1a356a860a22eeada8cff136a035ac6e389b /elisp
parentafe08bd5db0a2b5494fa239d010bc1f2496161da (diff)
downloadgeiser-a1974c8ce4b38e472b961b6a256c4da67f6dcfaf.tar.gz
geiser-a1974c8ce4b38e472b961b6a256c4da67f6dcfaf.tar.bz2
Better connection logs
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-connection.el17
1 files changed, 9 insertions, 8 deletions
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index e24511b..066d1a3 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -224,17 +224,18 @@
(comint-redirect-send-command (format "%s" str) rbuffer nil t))))))
(defun geiser-con--process-completed-request (req)
- (let ((cont (geiser-con--request-continuation req))
- (id (geiser-con--request-id req))
- (rstr (geiser-con--request-string req))
- (buffer (geiser-con--request-buffer req))
- (con (geiser-con--request-connection req)))
+ (let* ((cont (geiser-con--request-continuation req))
+ (id (geiser-con--request-id req))
+ (rstr (geiser-con--request-string req))
+ (buffer (geiser-con--request-buffer req))
+ (con (geiser-con--request-connection req))
+ (form (geiser-con--comint-buffer-form con)))
(if (not cont)
- (geiser-log--warn "<%s> Droping result for request %S (%s)"
- id rstr req)
+ (geiser-log--warn "<%s> Droping result for request %S: %s"
+ id rstr form)
(condition-case cerr
(with-current-buffer (or buffer (current-buffer))
- (funcall cont (geiser-con--comint-buffer-form con))
+ (funcall cont form)
(geiser-log--info "<%s>: processed" id))
(error (geiser-log--error
"<%s>: continuation failed %S \n\t%s" id rstr cerr))))))