From: Colin Walters <walters@gnu.org>
Date: Tue, 23 Apr 2002 20:36:01 +0000 (+0000)
Subject: (ibuffer-accumulate-lines): Moved to replace.el.
X-Git-Tag: ttn-vms-21-2-B4~15445
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e69738c93947721a737ab2540ed5e47c1242e0db;p=emacs.git

(ibuffer-accumulate-lines): Moved to replace.el.
---

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 66e9f47302f..e7fb3549625 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -721,25 +721,6 @@ width and the longest string in LIST."
 	  (insert (pop list)))
 	(insert "\n")))))
 
-(defun ibuffer-accumulate-lines (count)
-  (save-excursion
-    (let ((forwardp (> count 0))
-	  (result nil))
-      (while (not (or (zerop count)
-		      (if forwardp
-			  (eobp)
-			(bobp))))
-	(if forwardp
-	    (decf count)
-	  (incf count))
-	(push
-	 (buffer-substring
-	  (line-beginning-position)
-	  (line-end-position))
-	 result)
-	(forward-line (if forwardp 1 -1)))
-      (nreverse result))))
-
 (defsubst ibuffer-current-mark ()
   (cadr (get-text-property (line-beginning-position)
 			   'ibuffer-properties)))