2004-04-18 John Wiegley <johnw@newartisans.com>
* iswitchb.el (iswitchb-completions): Removed dependency on cl.
This commit is contained in:
parent
8fef838baa
commit
5f5d410aa1
1 changed files with 9 additions and 3 deletions
|
@ -1244,10 +1244,16 @@ Modified from `icomplete-completions'."
|
|||
(> (length comps) iswitchb-max-to-show))
|
||||
(setq comps
|
||||
(append
|
||||
(subseq comps 0 (/ iswitchb-max-to-show 2))
|
||||
(let ((res nil)
|
||||
(comp comps)
|
||||
(end (/ iswitchb-max-to-show 2)))
|
||||
(while (>= (setq end (1- end)) 0)
|
||||
(setq res (cons (car comp) res)
|
||||
comp (cdr comp)))
|
||||
(nreverse res))
|
||||
(list "...")
|
||||
(subseq comps (- (length comps)
|
||||
(/ iswitchb-max-to-show 2))))))
|
||||
(nthcdr (- (length comps)
|
||||
(/ iswitchb-max-to-show 2)) comps))))
|
||||
(let* (
|
||||
;;(most (try-completion name candidates predicate))
|
||||
(most nil)
|
||||
|
|
Loading…
Add table
Reference in a new issue