# HG changeset patch
# User Colin Walters <walters@gnu.org>
# Date 1018763289 0
# Node ID 3e16ea61b8c471aedce08b6d82965a7aeeed047d
# Parent  9e404d7dbe1dfd0745ab57e4b0c69e00eeb398f6
Update callers of `ibuffer-map-lines'.

diff -r 9e404d7dbe1d -r 3e16ea61b8c4 lisp/ibuf-ext.el
--- a/lisp/ibuf-ext.el	Sun Apr 14 01:51:15 2002 +0000
+++ b/lisp/ibuf-ext.el	Sun Apr 14 05:48:09 2002 +0000
@@ -815,7 +815,7 @@
       (message "No buffers marked; use 'm' to mark a buffer")
     (let ((count
 	   (ibuffer-map-marked-lines
-	    #'(lambda (buf mark beg end)
+	    #'(lambda (buf mark)
 		'kill))))
       (message "Killed %s lines" count))))
 
@@ -899,7 +899,7 @@
 		      (t
 		       'name))))
       (ibuffer-map-marked-lines
-       #'(lambda (buf mark beg end)
+       #'(lambda (buf mark)
 	   (setq ibuffer-copy-filename-as-kill-result
 		 (concat ibuffer-copy-filename-as-kill-result
 			 (let ((name (buffer-file-name buf)))
@@ -916,7 +916,7 @@
 (defun ibuffer-mark-on-buffer (func)
   (let ((count
 	 (ibuffer-map-lines
-	  #'(lambda (buf mark beg end)
+	  #'(lambda (buf mark)
 	      (when (funcall func buf)
 		(ibuffer-set-mark-1 ibuffer-marked-char)
 		t)))))
@@ -1155,7 +1155,7 @@
   (let ((ibuffer-do-occur-bufs nil))
     ;; Accumulate a list of marked buffers
     (ibuffer-map-marked-lines
-     #'(lambda (buf mark beg end)
+     #'(lambda (buf mark)
 	 (push buf ibuffer-do-occur-bufs)))
     (ibuffer-do-occur-1 regexp ibuffer-do-occur-bufs
 			(get-buffer-create "*Ibuffer-occur*")
diff -r 9e404d7dbe1d -r 3e16ea61b8c4 lisp/ibuf-macs.el
--- a/lisp/ibuf-macs.el	Sun Apr 14 01:51:15 2002 +0000
+++ b/lisp/ibuf-macs.el	Sun Apr 14 05:48:09 2002 +0000
@@ -227,7 +227,7 @@
 				  'ibuffer-map-deletion-lines)
 				 (t
 				  'ibuffer-map-marked-lines))
-			      #'(lambda (buf mark beg end)
+			      #'(lambda (buf mark)
 				  ,(if (eq modifier-p :maybe)
 				       `(let ((ibuffer-tmp-previous-buffer-modification
 					       (buffer-modified-p buf)))