From 4a97caca5b43266924a61fb64ad048c318e0eb85 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 4 May 2003 18:38:31 +0000 Subject: [PATCH] (vc-mcvs-mode-line-string): Fix thinko. (vc-mcvs-rename-file): New function. --- lisp/vc-mcvs.el | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el index 06c0aa365bb..e72287c417b 100644 --- a/lisp/vc-mcvs.el +++ b/lisp/vc-mcvs.el @@ -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 @@ of a repository; then VC only stays local for hosts that match it." (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 @@ This is only possible if Meta-CVS is responsible for FILE's directory.") (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) -- 2.39.2