Update callers of `ibuffer-map-lines'.

diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index 67586e43958ab1c1a436566095c2f7cd507b7778..64e335c35408dbddf6405f577c482317f7c7fb4f 100644 (file)
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -815,7 +815,7 @@ to move by.  The default is `ibuffer-marked-char'."
       (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 @@ You can then feed the file name(s) to other commands with C-y.
                      (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 @@ You can then feed the file name(s) to other commands with C-y.
 (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 @@ defaults to one."
   (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 --git a/lisp/ibuf-macs.el b/lisp/ibuf-macs.el
index 23b5e18fed47deac71b72c4e60dadae813d2f8eb..7b05f8dba30a6aea774037b31b4458999ca75adf 100644 (file)
--- a/lisp/ibuf-macs.el
+++ b/lisp/ibuf-macs.el
@@ -227,7 +227,7 @@ macro for exactly what it does."
                                  '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)))