summaryrefslogtreecommitdiff
path: root/cider-interaction.el
diff options
context:
space:
mode:
Diffstat (limited to 'cider-interaction.el')
-rw-r--r--cider-interaction.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/cider-interaction.el b/cider-interaction.el
index 829e693b..ee93fa8a 100644
--- a/cider-interaction.el
+++ b/cider-interaction.el
@@ -1546,10 +1546,10 @@ Print its value into the current buffer."
(defun cider--pprint-eval-form (form)
"Pretty print FORM in popup buffer."
(let* ((result-buffer (cider-popup-buffer cider-result-buffer nil 'clojure-mode))
+ (handler (cider-popup-eval-out-handler result-buffer))
(right-margin (max fill-column
(1- (window-width (get-buffer-window result-buffer))))))
- (cider-interactive-pprint-eval form
- (cider-popup-eval-out-handler result-buffer))))
+ (cider-interactive-pprint-eval form handler right-margin)))
(defun cider-pprint-eval-last-sexp ()
"Evaluate the sexp preceding point and pprint its value in a popup buffer."