emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/dape 37428a2b53: Remove timeout for "launch"/"attach" r


From: ELPA Syncer
Subject: [elpa] externals/dape 37428a2b53: Remove timeout for "launch"/"attach" request
Date: Mon, 11 Dec 2023 07:02:01 -0500 (EST)

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

    Remove timeout for "launch"/"attach" request
    
    Should fix #32
---
 dape.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/dape.el b/dape.el
index c10bc4b840..ef345a73b2 100644
--- a/dape.el
+++ b/dape.el
@@ -925,13 +925,15 @@ If NOWARN does not error on no active process."
     (dape--debug 'io "Sending:\n%S" object)
     (process-send-string process string)))
 
-(defun dape-request (process command arguments &optional cb)
+(defun dape-request (process command arguments &optional cb skip-timeout)
   "Send request COMMAND to PROCESS with ARGUMENTS.
 If CB set, invoke CB on response.
+If SKIP-TIMEOUT non nil skip timeout handler creation.
 See `dape--callback' for expected function signature."
   (let ((seq (setq dape--seq (1+ dape--seq)))
         (object (and arguments (list :arguments arguments))))
-    (dape--create-timer process seq)
+    (unless skip-timeout
+      (dape--create-timer process seq))
     (when cb
       (puthash seq cb dape--cb))
     (dape-send-object process
@@ -985,7 +987,9 @@ Uses `dape--config' to derive type and to construct 
request."
                      (plist-put dape--config 'start-debugging nil))
                    (unless success
                      (dape--repl-message msg 'dape-repl-exit-code-fail)
-                     (dape-kill))))))
+                     (dape-kill)))
+                  ;; dlv adapter takes some time during launch request
+                  'skip-timeout)))
 
 (defun dape--set-breakpoints (process buffer breakpoints &optional cb)
   "Set BREAKPOINTS in BUFFER by send setBreakpoints request to PROCESS.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]