Unbreak more tests

* sly.el (sly-simple-completions): Ressurected.

Unbreak more tests
* sly.el (sly-simple-completions): Ressurected.
2b3869b4 · João Távora · 27de7bc9 · 2b3869b4
Commit 2b3869b4 authored 10 years ago by João Távora
Hide whitespace changes
Inline Side-by-side

Showing

with 7 additions and 4 deletions
+7 -4
--- a/sly.el
+++ b/sly.el
@@ -3347,14 +3347,17 @@ Perform completion more similar to Emacs' complete-symbol."
         (beg (sly-symbol-start-pos))
         (prefix (and beg
                      (buffer-substring-no-properties beg end)))
-         (sly-current-thread t)
+         
         (result (and prefix
-                      (sly-eval
-                       `(swank:simple-completions ,prefix
-                                                  ',(sly-current-package))))))
+                      (sly-simple-completions prefix))))
    (when result
      (list beg end (car result)))))

+(defun sly-simple-completions (prefix)
+  (let ((sly-current-thread t))
+    (sly-eval
+     `(swank:simple-completions ,prefix ',(sly-current-package)))))
+
 (defun sly-show-arglist ()
  (let ((op (ignore-errors
              (save-excursion