-(defun vc-mcvs-mode-line-string (file)
- (let ((s (vc-mcvs-cvs mode-line-string file)))
- (when s
- (if (and (not (memq (vc-state file) '(up-to-date needs-patch)))
- (string-match "\\`CVS-" s))
- ;; The CVS file is not in sync, so we need to adjust the state.
- (concat "MCVS:" (substring s 4))
- (concat "M" s)))))
-