Make lsp-completion--resolve-async public

emacs-lsp · Nov 28, 2024 · 6e3b7d7 · 6e3b7d7
1 parent 5bc2096
commit 6e3b7d7
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/lsp-completion.el b/lsp-completion.el
@@ -211,7 +211,7 @@ ITEM can be string or a CompletionItem"
            item))
         (_ completion-item)))))
 
-(defun lsp-completion--resolve-async (item callback &optional cleanup-fn)
+(defun lsp-completion-resolve-async (item callback &optional cleanup-fn)
   "Resolve completion ITEM asynchronously with CALLBACK.
 The CLEANUP-FN will be called to cleanup."
   (cl-assert item nil "Completion item must not be nil")
@@ -242,6 +242,8 @@ The CLEANUP-FN will be called to cleanup."
         (funcall callback completion-item)
         (when cleanup-fn (funcall cleanup-fn))))))
 
+(define-obsolete-function-alias 'lsp-completion--resolve-async 'lsp-completion-resolve-async "9.1.0")
+
 (defun lsp-completion--annotate (item)
   "Annotate ITEM detail."
   (-let (((completion-item &as &CompletionItem :detail? :kind? :label-details?)
@@ -713,14 +715,14 @@ Others: CANDIDATES"
                   (not (seq-empty-p additional-text-edits?)))
               (lsp--apply-text-edits additional-text-edits? 'completion)
             (-let [(callback cleanup-fn) (lsp--create-apply-text-edits-handlers)]
-              (lsp-completion--resolve-async
+              (lsp-completion-resolve-async
                item
                (-compose callback #'lsp:completion-item-additional-text-edits?)
                cleanup-fn))))
 
         (if (or resolved command?)
             (when command? (lsp--execute-command command?))
-          (lsp-completion--resolve-async
+          (lsp-completion-resolve-async
            item
            (-lambda ((&CompletionItem? :command?))
              (when command? (lsp--execute-command command?)))))