diff options
| author | Tino Calancha <tino.calancha@gmail.com> | 2016-07-07 17:49:02 +0900 |
|---|---|---|
| committer | Tino Calancha <tino.calancha@gmail.com> | 2016-07-07 17:49:02 +0900 |
| commit | 1583b569eb327e8d37581ac5ddc1eddc83685535 (patch) | |
| tree | e85abe10b3fb56a921a0ff53ce11e922618f4122 | |
| parent | 1efb208032164d21d2feb8c62b445878d3f5141c (diff) | |
| download | emacs-1583b569eb327e8d37581ac5ddc1eddc83685535.tar.gz | |
Ibuffer: Drop needless binding
* lisp/ibuffer.el (ibuffer-mark-interactive): 'inhibit-read-only'
already bound to 't' inside 'ibuffer-set-mark'.
| -rw-r--r-- | lisp/ibuffer.el | 17 |
1 files changed, 8 insertions, 9 deletions
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) |