[elpa] externals/dape 05b59de946 2/5: Improve evaluate print on empty result

[ELPA Syncer]

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

    Improve evaluate print on empty result
---
 dape.el | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/dape.el b/dape.el
index 4769b40871..dd45bcc4e0 100644
--- a/dape.el
+++ b/dape.el
@@ -2055,12 +2055,19 @@ repl context.  CONN is inferred for interactive 
invocations."
                           (region-end))
       (read-string "Evaluate: "
                    (thing-at-point 'symbol)))))
-  (dape--with dape--evaluate-expression
-      (conn
-       (plist-get (dape--current-stack-frame conn) :id)
-       (substring-no-properties expression)
-       "repl")
-      (message "%s" (plist-get body :result))))
+  (let ((interactive-p (called-interactively-p 'any)))
+    (dape--with dape--evaluate-expression
+        (conn
+         (plist-get (dape--current-stack-frame conn) :id)
+         (substring-no-properties expression)
+         "repl")
+      (when interactive-p
+        (let ((result (plist-get body :result)))
+          (message "%s"
+                   (or (and (stringp result)
+                            (not (string-empty-p result))
+                            result)
+                       "Evaluation done")))))))
 
 ;;;###autoload
 (defun dape (config &optional skip-compile)