(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
(t
(cl-incf ibuffer-map-lines-count)
(forward-line 1)))))
- ibuffer-map-lines-count)
+ ;; With `ibuffer-auto-mode' enabled, the preceding loop
+ ;; counts the automatically popped up (and hence not
+ ;; user-marked) buffer "*Ibuffer confirmation*". Since
+ ;; Ibuffer reports how many user-marked buffers were acted
+ ;; upon, and in this case the reported count would be too
+ ;; high by one, we decrement the count to avoid the
+ ;; confusing message (see bug#64230).
+ (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