[elpa] externals/dape 313b90e15c 1/6: Improve completion of adapter name in minibuffer

[ELPA Syncer]

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

    Improve completion of adapter name in minibuffer
---
 dape.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/dape.el b/dape.el
index 1a60e50d0d..83f642d8d0 100644
--- a/dape.el
+++ b/dape.el
@@ -5142,10 +5142,11 @@ nil."
 
 (defun dape--config-completion-at-point ()
   "Function for `completion-at-point' fn for `dape--read-config'."
-  (let (key args args-bounds last-p)
+  (let (key key-end args args-bounds last-p)
     (save-excursion
       (goto-char (minibuffer-prompt-end))
       (setq key (ignore-errors (read (current-buffer))))
+      (setq key-end (point))
       (ignore-errors
         (while t
           (setq last-p (point))
@@ -5155,9 +5156,7 @@ nil."
           args-bounds (nreverse args-bounds))
     (cond
      ;; Complete config key
-     ((or (not key)
-          (and (not args)
-               (thing-at-point 'symbol)))
+     ((<= (point) key-end)
       (pcase-let ((`(,start . ,end)
                    (or (bounds-of-thing-at-point 'symbol)
                        (cons (point) (point)))))