[nongnu] elpa/sly 954e5da: Per #339: don't sly-eval from c-a-p-f function unless SLY connected

[ELPA Syncer]

branch: elpa/sly
commit 954e5dad72fb5712dfa968222e2b46dfdf9a476c
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Per #339: don't sly-eval from c-a-p-f function unless SLY connected
    
    * lib/sly-completion.el (sly--completion-request-completions):
    Check sly-connected-p.
---
 lib/sly-completion.el | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/lib/sly-completion.el b/lib/sly-completion.el
index 922dc8b..4c78780 100644
--- a/lib/sly-completion.el
+++ b/lib/sly-completion.el
@@ -161,11 +161,12 @@ immediately."
 (defun sly--completion-request-completions (pattern slyfun)
   "Request completions for PATTERN using SLYFUN.
 SLYFUN takes two arguments, a pattern and a package."
-  (let* ((sly-current-thread t))
-    (sly--responsive-eval
-        (completions `(,slyfun ,(substring-no-properties pattern)
-                               ',(sly-current-package)))
-      completions)))
+  (when (sly-connected-p)
+    (let* ((sly-current-thread t))
+      (sly--responsive-eval
+          (completions `(,slyfun ,(substring-no-properties pattern)
+                                ',(sly-current-package)))
+       completions))))
 
 (defun sly-simple-completions (prefix)
   "Return (COMPLETIONS COMMON) where COMPLETIONS complete the PREFIX.