Mercurial > emacs
changeset 10176:332014233a2c
(vc-toggle-read-only): Accept prefix arg
and pass it along to vc-next-action.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 15 Dec 1994 16:38:05 +0000 |
| parents | a52d1ab148f5 |
| children | 6270254bfd9a |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Thu Dec 15 16:30:39 1994 +0000 +++ b/lisp/vc-hooks.el Thu Dec 15 16:38:05 1994 +0000 @@ -161,14 +161,15 @@ (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)