(vc-toggle-read-only): Accept prefix arg

and pass it along to vc-next-action.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 23faab08947..6780f3ad703 100644
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -161,14 +161,15 @@ Otherwise, not displayed.")
                    (vc-file-setprop file 'vc-name (car name-and-type))
                    (vc-file-setprop file 'vc-backend (cdr name-and-type))))))))
 
-(defun vc-toggle-read-only ()
+(defun vc-toggle-read-only (&optional verbose)
   "Change read-only status of current buffer, perhaps via version control.
 If the buffer is visiting a file registered with version control,
 then check the file in or out.  Otherwise, just change the read-only flag
-of the buffer."
-  (interactive)
+of the buffer.
+If you provide a prefix argument, we pass it on to `vc-next-action'."
+  (interactive "P")
   (if (vc-backend-deduce (buffer-file-name))
-      (vc-next-action nil)
+      (vc-next-action verbose)
     (toggle-read-only)))
 (define-key global-map "\C-x\C-q" 'vc-toggle-read-only)