[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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1583b56: Ibuffer: Drop needless binding,
Tino Calancha <=