From aaaa01605674c66eb5c6b0c9e5c96ed2eb7e2bc1 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jo=C3=A3o=20T=C3=A1vora?= Date: Sat, 3 Dec 2022 13:13:02 +0000 Subject: [PATCH] Speed it up --- lisp/external-completion.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/external-completion.el b/lisp/external-completion.el index da3a986b8cf..25e94e540bf 100644 --- a/lisp/external-completion.el +++ b/lisp/external-completion.el @@ -104,8 +104,10 @@ taking a (STRING POINT) as arguments. The default is to set to `(external-completion-allc . ,(if pred (seq-filter pred all) all)))) (`(boundaries . ,_) nil) (_ - (let ((all (funcall lookup string (length string)))) - (complete-with-action action all string pred)))))) + ;; FIXME: Stefan had a call to `lookup' and + ;; `complete-with-action' again here, but that just seems to + ;; slow down things for no good reason, so I took it out. + )))) ;; Note: the "tryc", "allc" suffixes are made akward on purpose, so ;; it's easy to pick them apart from the jungle of combinations of -- 2.39.5