From e69738c93947721a737ab2540ed5e47c1242e0db Mon Sep 17 00:00:00 2001 From: Colin Walters Date: Tue, 23 Apr 2002 20:36:01 +0000 Subject: [PATCH] (ibuffer-accumulate-lines): Moved to replace.el. --- lisp/ibuffer.el | 19 ------------------- 1 file changed, 19 deletions(-) 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))) -- 2.39.2