Eglot: fix eglot--dumb-tryc for "only possible completion" case

* lisp/progmodes/eglot.el (eglot--dumb-tryc): Fix for "only possible
  completion" case.
This commit is contained in:
João Távora 2024-01-26 17:18:55 -06:00
parent b803d10d5f
commit 972466dce2

View file

@ -3061,9 +3061,10 @@ for which LSP on-type-formatting should be requested."
(defun eglot--dumb-allc (pat table pred _point) (funcall table pat pred t))
(defun eglot--dumb-tryc (pat table pred point)
(if-let ((probe (funcall table pat pred nil)))
(cons probe (length probe))
(cons pat point)))
(let ((probe (funcall table pat pred nil)))
(cond ((eq probe t) t)
(probe (cons probe (length probe)))
(t (cons pat point)))))
(add-to-list 'completion-category-defaults '(eglot-capf (styles eglot--dumb-flex)))
(add-to-list 'completion-styles-alist '(eglot--dumb-flex eglot--dumb-tryc eglot--dumb-allc))