diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-12-15 16:38:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-12-15 16:38:05 +0000 |
| commit | 1883a3cb3adc0f821cdc3662d3967cfa212a62cf (patch) | |
| tree | d02280ff73f3488925009bef20a7525dd2f5751e /lisp/vc-hooks.el | |
| parent | b64d9225107f3b5e1ea63d151ef0d3195fad708f (diff) | |
| download | emacs-1883a3cb3adc0f821cdc3662d3967cfa212a62cf.tar.gz | |
(vc-toggle-read-only): Accept prefix arg
and pass it along to vc-next-action.
Diffstat (limited to 'lisp/vc-hooks.el')
| -rw-r--r-- | lisp/vc-hooks.el | 9 |
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) |