[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/dape 181f11bb71 1/2: Fix REPL completion when no adapte
From: |
ELPA Syncer |
Subject: |
[elpa] externals/dape 181f11bb71 1/2: Fix REPL completion when no adapter connection |
Date: |
Mon, 22 Apr 2024 12:57:42 -0400 (EDT) |
branch: externals/dape
commit 181f11bb718f9b8ecb0f6c0873908869d3395da2
Author: Daniel Pettersson <daniel@dpettersson.net>
Commit: Daniel Pettersson <daniel@dpettersson.net>
Fix REPL completion when no adapter connection
---
dape.el | 18 ++++++++++--------
1 file changed, 10 insertions(+), 8 deletions(-)
diff --git a/dape.el b/dape.el
index 6e6bfd8dd6..b1786fd99d 100644
--- a/dape.el
+++ b/dape.el
@@ -4278,14 +4278,16 @@ Send INPUT to DUMMY-PROCESS."
(let* ((bounds (or (bounds-of-thing-at-point 'word)
(cons (point) (point))))
(trigger-chars
- (or (thread-first (dape--live-connection 'last t)
- (dape--capabilities)
- ;; completionTriggerCharacters is an
- ;; unofficial array of string to trigger
- ;; completion on.
- (plist-get :completionTriggerCharacters)
- (append nil))
- '(".")))
+ (when-let ((conn (or (dape--live-connection 'stopped t)
+ (dape--live-connection 'last t))))
+ (or (thread-first conn
+ (dape--capabilities)
+ ;; completionTriggerCharacters is an
+ ;; unofficial array of string to trigger
+ ;; completion on.
+ (plist-get :completionTriggerCharacters)
+ (append nil))
+ '("."))))
(collection
;; Add `dape-repl-commands' only if completion starts at
;; beginning of prompt line.