Mercurial > emacs
diff lisp/vc-mcvs.el @ 50808:5a0d0a9219f3
(vc-mcvs-mode-line-string): Fix thinko.
(vc-mcvs-rename-file): New function.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Sun, 04 May 2003 18:38:31 +0000 |
parents | 02455099d549 |
children | 6b9cefee3eee |
line wrap: on
line diff
--- 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)