Add symbol completeion to coalton-mode using lisp-mode's function. (#…

…1749)
lem-project · Jan 15, 2025 · 4c1cc0e · 4c1cc0e
1 parent e18d082
commit 4c1cc0e
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/extensions/coalton-mode/coalton-mode.lisp b/extensions/coalton-mode/coalton-mode.lisp
@@ -264,9 +264,15 @@
         (variable-value 'line-comment) ";"
         (variable-value 'insertion-line-comment) ";; "
         (variable-value 'language-mode-tag) 'coalton-mode
-        (variable-value 'idle-function) 'coalton-idle-function)
+        (variable-value 'idle-function) 'coalton-idle-function
+        (variable-value 'completion-spec)
+        (lem/completion-mode:make-completion-spec 'completion-symbol-async :async t))
   (lem-lisp-mode/internal::check-connection))
 
+(defun completion-symbol-async (point then)
+  (let ((lem-lisp-mode/internal::*current-package* (current-package)))
+    (lem-lisp-mode/internal::completion-symbol-async point then)))
+
 (set-syntax-parser *syntax-table* (make-tmlanguage-coalton))
 
 (defun guess-current-position-package (point)