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

[bpt/emacs.git] / lisp / ibuffer.el

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 66e9f47..e7fb354 100644 (file)
--- 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)))