From: John Wiegley <johnw@newartisans.com>
Date: Sun, 18 Apr 2004 10:31:29 +0000 (+0000)
Subject: 2004-04-18  John Wiegley  <johnw@newartisans.com>
X-Git-Tag: ttn-vms-21-2-B4~6748
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5f5d410aa19f840c08bcaab3813d98a8bf2c661c;p=emacs.git

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