diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index a26bb1811ec..50c3aeb7f62 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -1872,7 +1872,8 @@ ibuffer-map-lines (let ((result (if (buffer-live-p (ibuffer-current-buffer)) (when (or (null group) - (when-let ((it (get-text-property (point) 'ibuffer-filter-group))) + (when-let ((it (get-text-property + (point) 'ibuffer-filter-group))) (equal group it))) (save-excursion (funcall function @@ -1897,7 +1898,9 @@ ibuffer-map-lines (t (cl-incf ibuffer-map-lines-count) (forward-line 1))))) - ibuffer-map-lines-count) + (if (and (featurep 'ibuf-ext) ibuffer-auto-mode) + (1- ibuffer-map-lines-count) + ibuffer-map-lines-count)) (progn (setq buffer-read-only t) (unless nomodify