[Fix #1490] Don't show the inspector buffer if evaluation fails

1 files changed, 3 insertions, 7 deletions

diff --git a/cider-inspector.el b/cider-inspector.el
index 3ddf1b7a..8d38f2d2 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -113,7 +113,8 @@ With a second prefix argument it prompts for an expression to eval and inspect."
 ;; Operations
 (defun cider-inspector--value-handler (_buffer value)
   (cider-make-popup-buffer cider-inspector-buffer 'cider-inspector-mode)
-  (cider-inspector-render cider-inspector-buffer value))
+  (cider-inspector-render cider-inspector-buffer value)
+  (cider-popup-buffer-display cider-inspector-buffer t))
 
 (defun cider-inspector--out-handler (_buffer value)
   (cider-emit-interactive-eval-output value))
@@ -121,11 +122,6 @@ With a second prefix argument it prompts for an expression to eval and inspect."
 (defun cider-inspector--err-handler (_buffer err)
   (cider-emit-interactive-eval-err-output err))
 
-(defun cider-inspector--done-handler (buffer)
-  (when (get-buffer cider-inspector-buffer)
-    (with-current-buffer buffer
-      (cider-popup-buffer-display cider-inspector-buffer t))))
-
 (defun cider-inspector-response-handler (buffer)
   "Create an inspector response handler for BUFFER.
 
@@ -139,7 +135,7 @@ Used for all inspector nREPL ops."
                                #'cider-inspector--value-handler
                                #'cider-inspector--out-handler
                                #'cider-inspector--err-handler
-                               #'cider-inspector--done-handler))
+                               #'identity))
 
 (defun cider-inspect-expr (expr ns)
   "Evaluate EXPR in NS and inspect its value."