diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-07 18:29:25 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-07 18:29:25 +0100 |
| commit | e7aa01584d9b54e47855f2bcc434ab4c253126d5 (patch) | |
| tree | b6b07c88c08119fd9172ec89c9132d54ef33d965 /elisp | |
| parent | 61caa87e24a26196f529938b51d1e46373598e7f (diff) | |
| download | geiser-chez-e7aa01584d9b54e47855f2bcc434ab4c253126d5.tar.gz geiser-chez-e7aa01584d9b54e47855f2bcc434ab4c253126d5.tar.bz2 | |
Better connection logs
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-connection.el | 17 |
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)))))) |