[nongnu] elpa/cider c132951484 4/4: Use analyze-last-stacktrace and handle notifications

[ELPA Syncer]

branch: elpa/cider
commit c1329514842e30ca9eb30adf7e767de0539fe2c5
Author: Roman Scherer <roman@burningswell.com>
Commit: Bozhidar Batsov <bozhidar@batsov.dev>

    Use analyze-last-stacktrace and handle notifications
---
 cider-eval.el | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/cider-eval.el b/cider-eval.el
index da20f78ad9..29ce15156e 100644
--- a/cider-eval.el
+++ b/cider-eval.el
@@ -482,8 +482,10 @@ op/situation that originated this error."
 If RESPONSE contains a cause, cons it onto CAUSES and return that.  If
 RESPONSE is the final message (i.e. it contains a status), render CAUSES
 into a new error buffer."
-  (nrepl-dbind-response response (class status)
-    (cond (class (cons response causes))
+  (nrepl-dbind-response response (class msg status type)
+    (cond ((and (member "notification" status) causes)
+           (nrepl-notify msg type))
+          (class (cons response causes))
           (status (cider--render-stacktrace-causes causes)))))
 
 (defun cider-default-err-op-handler ()
@@ -493,7 +495,7 @@ into a new error buffer."
     (cider-nrepl-send-request
      (thread-last
        (map-merge 'list
-                  '(("op" "stacktrace"))
+                  '(("op" "analyze-last-stacktrace"))
                   (cider--nrepl-print-request-map fill-column))
        (seq-mapcat #'identity))
      (lambda (response)
@@ -505,8 +507,10 @@ into a new error buffer."
 (defun cider-default-err-handler ()
   "This function determines how the error buffer is shown.
 It delegates the actual error content to the eval or op handler."
-  (cond ((cider-nrepl-op-supported-p "stacktrace") 
(cider-default-err-op-handler))
-        ((cider-library-present-p "clojure.stacktrace") 
(cider-default-err-eval-handler))
+  (cond ((cider-nrepl-op-supported-p "analyze-last-stacktrace")
+         (cider-default-err-op-handler))
+        ((cider-library-present-p "clojure.stacktrace")
+         (cider-default-err-eval-handler))
         (t (cider-default-err-eval-print-handler))))