2004-04-18 John Wiegley <johnw@newartisans.com>

* iswitchb.el (iswitchb-completions): Removed dependency on cl.
This commit is contained in:
John Wiegley 2004-04-18 10:31:29 +00:00
parent 8fef838baa
commit 5f5d410aa1

View file

@ -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)