From: Tino Calancha <tino.calancha@gmail.com>
Date: Thu, 7 Jul 2016 08:49:02 +0000 (+0900)
Subject: Ibuffer: Drop needless binding
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/1583b569eb327e8d37581ac5ddc1eddc83685535

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 2f875f49af..c6ea1b8e23 100644
--- 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)