From 1583b569eb327e8d37581ac5ddc1eddc83685535 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Thu, 7 Jul 2016 17:49:02 +0900 Subject: Ibuffer: Drop needless binding * lisp/ibuffer.el (ibuffer-mark-interactive): 'inhibit-read-only' already bound to 't' inside 'ibuffer-set-mark'. --- lisp/ibuffer.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'lisp/ibuffer.el') diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 2f875f49afa..c6ea1b8e239 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) -- cgit v1.2.1