# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 717554757 0
# Node ID 981b00f8fe77ed56d8f40bcb05db0ac1031f46fc
# Parent  45f9cbd79ede589c70553ab5acf639a612a12ccc
(vc-toggle-read-only): Doc fix.
(vc-mode-line): Add interactive spec.

diff -r 45f9cbd79ede -r 981b00f8fe77 lisp/vc-hooks.el
--- a/lisp/vc-hooks.el	Sat Sep 26 22:58:56 1992 +0000
+++ b/lisp/vc-hooks.el	Sun Sep 27 00:45:57 1992 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Version: 4.0
 
-;;	$Id: vc-hooks.el,v 1.44 1992/07/31 06:43:05 esr Exp $	
+;;	$Id: vc-hooks.el,v 1.2 1992/08/04 07:21:29 jimb Exp roland $	
 
 ;; This file is part of GNU Emacs.
 
@@ -96,7 +96,7 @@
 	   (vc-file-setprop file 'vc-backend (cdr (vc-registered file))))))
 
 (defun vc-toggle-read-only ()
-  "If the file in the current buffer id under version control, perform the
+  "If the file in the current buffer is under version control, perform the
 logical next version-control action; otherwise, just toggle the buffer's
 read-only flag."
   (interactive)
@@ -108,6 +108,7 @@
   "Set `vc-mode-string' to display type of version control for FILE.
 The value is set in the current buffer, which should be the buffer
 visiting FILE."
+  (interactive (list buffer-file-name nil))
   (let ((vc-type (vc-backend-deduce file)))
     (if vc-type
 	(progn