Function: eglot--dumb-tryc

eglot--dumb-tryc is a byte-compiled function defined in eglot.el.gz.

Signature

(eglot--dumb-tryc PAT TABLE PRED POINT)

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/eglot.el.gz
(defun eglot--dumb-tryc (pat table pred point)
  (let ((probe (funcall table pat pred nil)))
    (cond ((eq probe t) t)
          (probe
           (if (and (not (equal probe pat))
                    (cl-every
                     (lambda (s) (string-prefix-p probe s completion-ignore-case))
                     (funcall table pat pred t)))
               (cons probe (length probe))
             (cons pat point)))
          (t
           ;; Match ignoring suffix: if there are any completions for
           ;; the current prefix at least, keep the current input.
           (and (funcall table (substring pat 0 point) pred t)
                (cons pat point))))))