[elpa] externals/dape e34a87dd67 097/123: Handle capabilities event

[ELPA Syncer]

branch: externals/dape
commit e34a87dd679fdac66674b08e141719f5cd5db0df
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>

    Handle capabilities event
---
 dape.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/dape.el b/dape.el
index 5948f25999..58937acfdb 100644
--- a/dape.el
+++ b/dape.el
@@ -590,6 +590,9 @@ If NOWARN does not error on no active process."
                              (plist-get object :arguments)))
       (event
        (let ((seq (plist-get object :seq)))
+         ;; netcoredbg sends seq as string for some reason
+         (when (stringp seq)
+           (setq seq (string-to-number seq)))
          (cond
           ;; FIXME This is only here for `godot' which keeps sending duplicate.
           ((or (> seq dape--seq-event)
@@ -1069,6 +1072,12 @@ Starts a new process as per request of the debug 
adapter."
     (dape--with dape--configure-breakpoints (process)
       (dape--configuration-done process))))
 
+(cl-defmethod dape-handle-event (process (_event (eql capabilities)) body)
+  "Handle capabilities events."
+  (setq dape--capabilities (plist-get body :capabilities))
+  (dape--debug 'info "Capabailities recived")
+  (dape--configure-exceptions process (dape--callback nil)))
+
 (cl-defmethod dape-handle-event (_process (_event (eql process)) body)
   "Handle process events."
   (let ((start-method (format "%sed"