[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
scratch/backend-completion aaaa016056 2/2: Speed it up
From: |
João Távora |
Subject: |
scratch/backend-completion aaaa016056 2/2: Speed it up |
Date: |
Sat, 3 Dec 2022 08:17:39 -0500 (EST) |
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