[Emacs-diffs] master ee3daab: ibuffer-do-toggle-read-only: Fix unused argument

[Tino Calancha]

branch: master
commit ee3daab0232189d51eef46e793aea087c271688c
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    ibuffer-do-toggle-read-only: Fix unused argument
    
    * 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.
---
 lisp/ibuffer.el |    8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el
index 8e24629..0336f1d 100644
--- a/lisp/ibuffer.el
+++ b/lisp/ibuffer.el
@@ -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'."