[elpa] externals/dape 77fa220765 069/123: Fix interactive commands in REPL #11

[ELPA Syncer]

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

    Fix interactive commands in REPL #11
    
    `call-interactively' should be used for dape commands in repl
    buffer. Also changed how dape-configs get filtered in non prog buffers
    to accommodate using `dape` from REPL.
---
 dape.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/dape.el b/dape.el
index 359cc794cc..3848271218 100644
--- a/dape.el
+++ b/dape.el
@@ -2338,7 +2338,7 @@ interactively or if SELECT-BUFFER is non nil."
                               return value))))
       (setq dape--repl-insert-text-guard t)
       (comint-output-filter dummy-process "\n> ")
-      (funcall cmd)
+      (call-interactively cmd)
       (setq dape--repl-insert-text-guard nil))
      ;; Evaluate expression
      ((dape--stopped-threads)
@@ -2604,7 +2604,11 @@ arrays [%S ...], if meant as an object replace (%S ...) 
with (:%s ...)"
   (let ((modes (plist-get config 'modes)))
     (or (not modes)
         (apply 'provided-mode-derived-p
-               major-mode (cl-map 'list 'identity modes)))))
+               major-mode (cl-map 'list 'identity modes))
+        (and (not (derived-mode-p 'prog-mode))
+             (cl-some (lambda (mode)
+                        (memql mode (plist-get dape--config 'modes)))
+                      modes)))))
 
 (defun dape--read-config ()
   "Read config name and options."