Handle thread states better

Author: yyoncho

dap-mode.el

@@ -807,7 +807,8 @@ thread exection but the server will log message."
            (run-hooks 'dap-session-changed-hook))))
       ("stopped"
        (-let [(&hash "threadId" thread-id "type" "reason") body]
-         (puthash thread-id type (dap--debug-session-thread-states debug-session))
+         (puthash thread-id (or type reason)
+                  (dap--debug-session-thread-states debug-session))
          (dap--select-thread-id debug-session thread-id)
          (when (string= "exception" reason)
            (dap--send-message

dap-ui.el

@@ -630,8 +630,8 @@ DEBUG-SESSION is the debug session triggering the event."
                callback
                (-map
                 (-lambda ((thread &as &hash "name" "id"))
-                  (let* ((status (s-capitalize (or (gethash id thread-states) "running")))
-                         (stopped? (string= status "Stopped")))
+                  (let* ((status (s-capitalize (gethash id thread-states "running")))
+                         (stopped? (not (string= (s-downcase status) "running"))))
                     (list
                      :label (concat (propertize name
                                                 'face (if (and (eq session (dap--cur-session))