From ee3daab0232189d51eef46e793aea087c271688c Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Sat, 17 Sep 2016 22:38:19 +0900 Subject: [PATCH] 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 8e246297ff7..0336f1d41b1 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'." -- 2.39.5