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

[João Távora]

branch: master
commit 972466dce268c5697f47a7f342b13dbf01f23a39
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Eglot: fix eglot--dumb-tryc for "only possible completion" case
    
    * lisp/progmodes/eglot.el (eglot--dumb-tryc): Fix for "only possible
      completion" case.
---
 lisp/progmodes/eglot.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el
index 40837074573..beba268f923 100644
--- a/lisp/progmodes/eglot.el
+++ b/lisp/progmodes/eglot.el
@@ -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))