# HG changeset patch
# User Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
# Date 1203969959 0
# Node ID dadfc0119018231f0596c99a8c64dfe2916ef16f
# Parent  9976b0faa96a2dc88dd0e358395c716c8f45c6c7
(ibuffer-do-toggle-read-only): New optional arg as in
toggle-read-only.

diff -r 9976b0faa96a -r dadfc0119018 lisp/ibuffer.el
--- a/lisp/ibuffer.el	Mon Feb 25 20:04:59 2008 +0000
+++ b/lisp/ibuffer.el	Mon Feb 25 20:05:59 2008 +0000
@@ -1257,11 +1257,13 @@
    :modifier-p t)
   (set-buffer-modified-p (not (buffer-modified-p))))
 
-(define-ibuffer-op ibuffer-do-toggle-read-only ()
-  "Toggle read only status in marked buffers."
+(define-ibuffer-op ibuffer-do-toggle-read-only (&optional arg)
+  "Toggle read only status in marked buffers.
+With ARG, set read-only iff arg is positive."
   (:opstring "toggled read only status in"
+   :interactive "P"
    :modifier-p t)
-  (toggle-read-only))
+  (toggle-read-only arg))
 
 (define-ibuffer-op ibuffer-do-delete ()
   "Kill marked buffers as with `kill-this-buffer'."