Cleanup the debug-input messages we send

cider-debug.el

@@ -367,10 +367,14 @@ specific message."
                     (symbol-name last-command-event)
                   (cdr (assq last-command-event cider--debug-mode-commands-alist)))
                 nil))
-  (cider-nrepl-send-request
-   (list "op" "debug-input" "input" (or command ":quit")
-         "key" (or key (nrepl-dict-get cider--debug-mode-response "key")))
-   #'ignore)
+  (let* ((conn (cider-current-connection))
+         (id (nrepl-send-request
+              (list "op" "debug-input" "input" (or command ":quit")
+                    "key" (or key (nrepl-dict-get cider--debug-mode-response "key")))
+              #'ignore
+              conn)))
+    (with-current-buffer conn
+      (nrepl--mark-id-completed id)))
   (ignore-errors (cider--debug-mode -1)))
 
 (defun cider--debug-quit ()

nrepl-client.el

@@ -892,14 +892,16 @@ server responses."
   "Send REQUEST and register response handler CALLBACK using CONNECTION.
 REQUEST is a pair list of the form (\"op\" \"operation\" \"par1-name\"
 \"par1\" ... ). See the code of `nrepl-request:clone',
-`nrepl-request:stdin', etc."
+`nrepl-request:stdin', etc.
+Return the ID of the sent message."
   (let* ((id (nrepl-next-request-id connection))
          (request (cons 'dict (lax-plist-put request "id" id)))
          (message (nrepl-bencode request)))
     (nrepl-log-message (cons '---> (cdr request)))
     (with-current-buffer connection
       (puthash id callback nrepl-pending-requests)
-      (process-send-string nil message))))
+      (process-send-string nil message))
+    id))
 
 (defvar nrepl-ongoing-sync-request nil
   "Dynamically bound to t while a sync request is ongoing.")