Mercurial > emacs
changeset 54967:8456893f6790
2004-04-18 John Wiegley <johnw@newartisans.com>
* iswitchb.el (iswitchb-completions): Removed dependency on cl.
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Sun, 18 Apr 2004 10:31:29 +0000 |
| parents | 254afca95897 |
| children | 1eccd1d7d152 |
| files | lisp/iswitchb.el |
| diffstat | 1 files changed, 9 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/iswitchb.el Sun Apr 18 10:30:54 2004 +0000 +++ b/lisp/iswitchb.el Sun Apr 18 10:31:29 2004 +0000 @@ -1244,10 +1244,16 @@ (> (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)