Ibuffer: Drop needless binding

* lisp/ibuffer.el (ibuffer-mark-interactive): 'inhibit-read-only'
already bound to 't' inside 'ibuffer-set-mark'.

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 2f875f49afa0071f87e290feebbc5edcfdd78832..c6ea1b8e239158811848230d89ff01d8a982c756 100644 (file)
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -1410,15 +1410,14 @@ If point is on a group name, this function operates on that group."
        (require 'ibuf-ext)
        (ibuffer-mark-on-buffer #'identity mark it))
     (ibuffer-forward-line 0 t)
-    (let ((inhibit-read-only t))
-      (while (> arg 0)
-       (ibuffer-set-mark mark)
-       (ibuffer-forward-line 1 t)
-       (setq arg (1- arg)))
-      (while (< arg 0)
-       (ibuffer-forward-line -1 t)
-       (ibuffer-set-mark mark)
-       (setq arg (1+ arg))))))
+    (while (> arg 0)
+      (ibuffer-set-mark mark)
+      (ibuffer-forward-line 1 t)
+      (setq arg (1- arg)))
+    (while (< arg 0)
+      (ibuffer-forward-line -1 t)
+      (ibuffer-set-mark mark)
+      (setq arg (1+ arg)))))
 
 (defun ibuffer-set-mark (mark)
   (ibuffer-assert-ibuffer-mode)