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

	* iswitchb.el (iswitchb-completions): Removed dependency on cl.

diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index 0c43c27075116c75c1f09cacf15574b7d735bec9..4f560820b09dafa63b2b9d4bdcab7eb3626ac649 100644 (file)
--- 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)