diff options
| author | Tino Calancha | 2016-07-07 17:49:02 +0900 |
|---|---|---|
| committer | Tino Calancha | 2016-07-07 17:49:02 +0900 |
| commit | 1583b569eb327e8d37581ac5ddc1eddc83685535 (patch) | |
| tree | e85abe10b3fb56a921a0ff53ce11e922618f4122 | |
| parent | 1efb208032164d21d2feb8c62b445878d3f5141c (diff) | |
| download | emacs-1583b569eb327e8d37581ac5ddc1eddc83685535.tar.gz emacs-1583b569eb327e8d37581ac5ddc1eddc83685535.zip | |
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." | |||
| 1410 | (require 'ibuf-ext) | 1410 | (require 'ibuf-ext) |
| 1411 | (ibuffer-mark-on-buffer #'identity mark it)) | 1411 | (ibuffer-mark-on-buffer #'identity mark it)) |
| 1412 | (ibuffer-forward-line 0 t) | 1412 | (ibuffer-forward-line 0 t) |
| 1413 | (let ((inhibit-read-only t)) | 1413 | (while (> arg 0) |
| 1414 | (while (> arg 0) | 1414 | (ibuffer-set-mark mark) |
| 1415 | (ibuffer-set-mark mark) | 1415 | (ibuffer-forward-line 1 t) |
| 1416 | (ibuffer-forward-line 1 t) | 1416 | (setq arg (1- arg))) |
| 1417 | (setq arg (1- arg))) | 1417 | (while (< arg 0) |
| 1418 | (while (< arg 0) | 1418 | (ibuffer-forward-line -1 t) |
| 1419 | (ibuffer-forward-line -1 t) | 1419 | (ibuffer-set-mark mark) |
| 1420 | (ibuffer-set-mark mark) | 1420 | (setq arg (1+ arg))))) |
| 1421 | (setq arg (1+ arg)))))) | ||
| 1422 | 1421 | ||
| 1423 | (defun ibuffer-set-mark (mark) | 1422 | (defun ibuffer-set-mark (mark) |
| 1424 | (ibuffer-assert-ibuffer-mode) | 1423 | (ibuffer-assert-ibuffer-mode) |