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

(icomplete-completions): While collecting the list of prospective candidates,

Browse source 
don't overshoot `icomplete-prospects-length'.
This commit is contained in:
Juanma Barranquero 2008-03-20 10:28:55 +00:00
parent 077aec2788
commit 7d94fb17ea
2 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -6,6 +6,8 @@
(icomplete-compute-delay): Fix docstring and remove spurious *.
(icomplete-delay-completions-threshold): Fix typo in docstring and
remove spurious *.
(icomplete-completions): While collecting the list of prospective
candidates, don't overshoot `icomplete-prospects-length'.
2008-03-20 Dan Nicolaescu <dann@ics.uci.edu>

12
lisp/icomplete.el
View file

@ -299,17 +299,19 @@ are exhibited within the square braces.)"
(substring most (length name))
close-bracket-determined)))
;;"-prospects" - more than one candidate
(prospects-len 0)
prospects most-is-exact comp)
(prospects-len (+ (length determ) 6)) ;; take {,...} into account
prospects most-is-exact comp limit)
(if (eq most-try t)
(setq prospects nil)
(while (and comps (< prospects-len icomplete-prospects-length))
(while (and comps (not limit))
(setq comp (substring (car comps) most-len)
comps (cdr comps))
(cond ((string-equal comp "") (setq most-is-exact t))
((member comp prospects))
(t (setq prospects (cons comp prospects)
prospects-len (+ (length comp) 1 prospects-len))))))
(t (setq prospects-len (+ (length comp) 1 prospects-len))
(if (< prospects-len icomplete-prospects-length)
(setq prospects (cons comp prospects))
(setq limit t))))))
(if prospects
(concat determ
"{"