[Emacs-diffs] Changes to emacs/lisp/vc-mcvs.el

[Stefan Monnier]

Index: emacs/lisp/vc-mcvs.el
diff -c emacs/lisp/vc-mcvs.el:1.3 emacs/lisp/vc-mcvs.el:1.4
*** emacs/lisp/vc-mcvs.el:1.3   Fri May  2 14:31:55 2003
--- emacs/lisp/vc-mcvs.el       Sun May  4 14:38:31 2003
***************
*** 46,51 ****
--- 46,52 ----
  ;; - C-x v l
  ;; - C-x v i
  ;; - C-x v g
+ ;; - M-x vc-rename-file RET
  
  ;;; Bugs:
  
***************
*** 224,230 ****
  
  (defalias 'vc-mcvs-checkout-model 'vc-cvs-checkout-model)
  
! (defun vc-mcvs-mode-line-string (file) (vc-mcvs-cvs mode-line-string file))
  
  ;;;
  ;;; State-changing functions
--- 225,233 ----
  
  (defalias 'vc-mcvs-checkout-model 'vc-cvs-checkout-model)
  
! (defun vc-mcvs-mode-line-string (file)
!   (let ((s (vc-mcvs-cvs mode-line-string file)))
!     (if s (concat "M" s))))
  
  ;;;
  ;;; State-changing functions
***************
*** 386,391 ****
--- 389,397 ----
               "-A"
             (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."