From c844616ca64344a4f414c0717f1ce06fb4305b0b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 15 Dec 1994 16:38:05 +0000 Subject: [PATCH] (vc-toggle-read-only): Accept prefix arg and pass it along to vc-next-action. --- lisp/vc-hooks.el | 9 +++++---- 1 file 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) -- 2.39.5