From 5f5d410aa19f840c08bcaab3813d98a8bf2c661c Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Sun, 18 Apr 2004 10:31:29 +0000 Subject: [PATCH] 2004-04-18 John Wiegley * iswitchb.el (iswitchb-completions): Removed dependency on cl. --- lisp/iswitchb.el | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index 0c43c270751..4f560820b09 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el @@ -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) -- 2.39.2