From 7f3613207477980310ce026ce8d9d2da832fbac3 Mon Sep 17 00:00:00 2001 From: Eitaro Fukamachi Date: Wed, 15 Jan 2025 02:16:19 +0000 Subject: [PATCH] Add symbol completeion to coalton-mode using lisp-mode's function. --- extensions/coalton-mode/coalton-mode.lisp | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/extensions/coalton-mode/coalton-mode.lisp b/extensions/coalton-mode/coalton-mode.lisp index a5559c6bf..4582aa08b 100644 --- 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)