emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 1583b56: Ibuffer: Drop needless binding


From: Tino Calancha
Subject: [Emacs-diffs] master 1583b56: Ibuffer: Drop needless binding
Date: Thu, 7 Jul 2016 08:51:25 +0000 (UTC)

branch: master
commit 1583b569eb327e8d37581ac5ddc1eddc83685535
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    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(-)

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 2f875f4..c6ea1b8 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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]