procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Speed up fido-mode

Browse source 
* lisp/icomplete.el (icomplete-completions): Speed up fido-mode (bug#48841).
This commit is contained in:
Dmitry Gutov 2021-07-04 04:38:35 +03:00
parent 0aee54a54b
commit 9b318d5c58
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/icomplete.el
View file

@ -859,13 +859,16 @@ matches exist."
(base-size (prog1 (cdr last)
(if last (setcdr last nil))))
(most-try
(if (and base-size (> base-size 0))
;; icomplete-hide-common-prefix logic is used
;; unconditionally when there is single match.
(when (or icomplete-hide-common-prefix (not (cdr comps)))
(if (and base-size (> base-size 0))
(completion-try-completion
name candidates predicate (length name) md)
;; If the `comps' are 0-based, the result should be
;; the same with `comps'.
(completion-try-completion
name candidates predicate (length name) md)
;; If the `comps' are 0-based, the result should be
;; the same with `comps'.
(completion-try-completion
name comps nil (length name) md)))
name comps nil (length name) md))))
(most (if (consp most-try) (car most-try)
(if most-try (car comps) "")))
;; Compare name and most, so we can determine if name is