mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Ibuffer: Drop needless binding

Browse Source 
* lisp/ibuffer.el (ibuffer-mark-interactive): 'inhibit-read-only'
already bound to 't' inside 'ibuffer-set-mark'.
This commit is contained in:
Tino Calancha 2016-07-07 17:49:02 +09:00
parent 1efb208032
commit 1583b569eb
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
lisp/ibuffer.el
View File

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