procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

ibuffer-do-toggle-read-only: Fix unused argument

Browse source 
* lisp/ibuffer.el (ibuffer-do-toggle-read-only): Call
'read-only-mode' with ARG when its an integer.
Clarify the meaning of ARG in doc string.
This commit is contained in:
Tino Calancha 2016-09-17 22:38:19 +09:00
parent 277e7b011d
commit ee3daab023
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ibuffer.el
View file

@ -1299,13 +1299,15 @@ a new window in the current frame, splitting vertically."
:modifier-p t)
(set-buffer-modified-p (not (buffer-modified-p))))
(define-ibuffer-op ibuffer-do-toggle-read-only (&optional _arg);FIXME:arg unused!
(define-ibuffer-op ibuffer-do-toggle-read-only (&optional arg)
"Toggle read only status in marked buffers.
With optional ARG, make read-only only if ARG is not negative."
If optional ARG is a non-negative integer, make buffers read only.
If ARG is a negative integer or 0, make buffers writable.
Otherwise, toggle read only status."
(:opstring "toggled read only status in"
:interactive "P"
:modifier-p t)
(read-only-mode 'toggle))
(read-only-mode (if (integerp arg) arg 'toggle)))
(define-ibuffer-op ibuffer-do-delete ()
"Kill marked buffers as with `kill-this-buffer'."