diff options
author | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2015-05-12 16:33:03 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2015-05-12 16:33:03 +0300 |
commit | a61ecd9a10b7f60587d524915a76d7317342da7e (patch) | |
tree | 9ea89f1550a6ed67cd6d7450ef4d581acefa9e3b | |
parent | 1449cf6fb318dc2025a043f0a3aba12acd34f229 (diff) | |
parent | 83ec39286457b0d6a26ee6d1d566d29e14201f97 (diff) |
Merge pull request #1098 from cichli/pprint-out
Add support for `pprint-out` slot in eval responses
-rw-r--r-- | nrepl-client.el | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/nrepl-client.el b/nrepl-client.el index bd990c26..0aac9a94 100644 --- a/nrepl-client.el +++ b/nrepl-client.el @@ -839,16 +839,19 @@ When `nrepl-log-messages' is non-nil, *nrepl-messages* buffer contains server responses." (lambda (response) (nrepl-dbind-response response (value ns out err status id ex root-ex - session) + session pprint-out) + (with-current-buffer buffer + (when (and ns (not (derived-mode-p 'clojure-mode))) + (setq cider-buffer-ns ns))) (cond (value - (with-current-buffer buffer - (when (and ns (not (derived-mode-p 'clojure-mode))) - (setq cider-buffer-ns ns))) (when value-handler (funcall value-handler buffer value))) (out (when stdout-handler (funcall stdout-handler buffer out))) + (pprint-out + (when stdout-handler + (funcall stdout-handler buffer pprint-out))) (err (when stderr-handler (funcall stderr-handler buffer err))) |