[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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/dape 37428a2b53: Remove timeout for "launch"/"attach" request,
ELPA Syncer <=