scratch/backend-completion aaaa016056 2/2: Speed it up

[João Távora]

branch: scratch/backend-completion
commit aaaa01605674c66eb5c6b0c9e5c96ed2eb7e2bc1
Author: João Távora <joaotavora@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    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 da3a986b8c..25e94e540b 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