Speed it up

diff --git a/lisp/external-completion.el b/lisp/external-completion.el
index da3a986b8cfc9ab8911371f92cd96c758cda8e6f..25e94e540bf5e52e15c013b3bd4f076c106f11f4 100644 (file)
--- 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