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

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

[elpa] externals/dape 8a07304ae0 4/8: Fix naming of variable for control


From: ELPA Syncer
Subject: [elpa] externals/dape 8a07304ae0 4/8: Fix naming of variable for controlling thread info fetching
Date: Mon, 9 Dec 2024 12:58:03 -0500 (EST)

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

    Fix naming of variable for controlling thread info fetching
---
 dape.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/dape.el b/dape.el
index d1aa098809..947c82539b 100644
--- a/dape.el
+++ b/dape.el
@@ -3759,7 +3759,7 @@ without log or expression breakpoint"))))))
 
 (defvar dape--info-thread-position nil
   "`dape-info-thread-mode' marker for `overlay-arrow-variable-list'.")
-(defvar-local dape--info-threads-fetch-other-threads-p nil
+(defvar-local dape--info-threads-skip-other-p nil
   ;; XXX Workaround for some adapters seemingly not being able to
   ;;     handle parallel stack traces.
   "If non nil skip fetching thread information for other threads.")
@@ -3787,7 +3787,7 @@ See `dape-request' for expected CB signature."
   (let (threads)
     (cond
      ;; Current CONN is benched
-     (dape--info-threads-fetch-other-threads-p
+     (dape--info-threads-skip-other-p
       (dape--request-continue cb))
      ;; Stopped threads
      ((setq threads
@@ -3806,12 +3806,12 @@ See `dape-request' for expected CB signature."
           (dape--with-request (dape--stack-trace conn thread 1)
             (plist-put thread :request-in-flight nil)
             ;; Time response, if slow bench that CONN
-            (when (and (not dape--info-threads-fetch-other-threads-p)
+            (when (and (not dape--info-threads-skip-other-p)
                        (time-less-p (timer-relative-time
                                      start-time dape-info--threads-tt-bench)
                                     (current-time)))
-              (dape--warn "Disabling stack trace info in Threads buffer 
(slow)")
-              (setq dape--info-threads-fetch-other-threads-p t))
+              (dape--warn "Disabling stack info for other threads (slow)")
+              (setq dape--info-threads-skip-other-p t))
             ;; When all request have resolved return
             (when (length= threads (setf responses (1+ responses)))
               (dape--request-continue cb))))))



reply via email to

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