Mercurial > emacs

changeset 50808:5a0d0a9219f3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 0158fd7739f3
children d02f8c881e70
files lisp/vc-mcvs.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
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)