diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-04 18:38:31 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-04 18:38:31 +0000 |
| commit | 4a97caca5b43266924a61fb64ad048c318e0eb85 (patch) | |
| tree | d351315462527cd2552a412beeff52f702451ac1 /lisp/vc-mcvs.el | |
| parent | 56eebc2963f5f714860e0beb28bf8bf4a9a9a5e9 (diff) | |
| download | emacs-4a97caca5b43266924a61fb64ad048c318e0eb85.tar.gz | |
(vc-mcvs-mode-line-string): Fix thinko.
(vc-mcvs-rename-file): New function.
Diffstat (limited to 'lisp/vc-mcvs.el')
| -rw-r--r-- | lisp/vc-mcvs.el | 8 |
1 files changed, 7 insertions, 1 deletions
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) |