# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1052073511 0
# Node ID 5a0d0a9219f31848b365d4b25abd789f74cc05ef
# Parent  0158fd7739f3fea8e05508faa59a5872f2053da4
(vc-mcvs-mode-line-string): Fix thinko.
(vc-mcvs-rename-file): New function.

diff -r 0158fd7739f3 -r 5a0d0a9219f3 lisp/vc-mcvs.el
--- a/lisp/vc-mcvs.el	Sun May 04 13:08:58 2003 +0000
+++ b/lisp/vc-mcvs.el	Sun May 04 18:38:31 2003 +0000
@@ -46,6 +46,7 @@
 ;; - C-x v l
 ;; - C-x v i
 ;; - C-x v g
+;; - M-x vc-rename-file RET
 
 ;;; Bugs:
 
@@ -224,7 +225,9 @@
 
 (defalias 'vc-mcvs-checkout-model 'vc-cvs-checkout-model)
 
-(defun vc-mcvs-mode-line-string (file) (vc-mcvs-cvs mode-line-string file))
+(defun vc-mcvs-mode-line-string (file)
+  (let ((s (vc-mcvs-cvs mode-line-string file)))
+    (if s (concat "M" s))))
 
 ;;;
 ;;; State-changing functions
@@ -387,6 +390,9 @@
 	     (concat "-r" rev))
 	   switches)))
 
+(defun vc-mcvs-rename-file (old new)
+  (vc-mcvs-command nil 0 new "move" (file-relative-name old)))
+
 (defun vc-mcvs-revert (file &optional contents-done)
   "Revert FILE to the version it was based on."
   (vc-default-revert file contents-done)