comparison lisp/vc-mcvs.el @ 50808:5a0d0a9219f3

(vc-mcvs-mode-line-string): Fix thinko. (vc-mcvs-rename-file): New function.

50807:0158fd7739f3

;; - C-x v v to commit a file
;; - C-x v =
;; - C-x v l
;; - C-x v i
;; - C-x v g

;;; Bugs:

;; - VC-dired doesn't work.

(defun vc-mcvs-workfile-version (file) (vc-mcvs-cvs workfile-version file))

(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
;;;

	   (if (or (not rev) (string= rev ""))
	       "-A"
	     (concat "-r" rev))
	   switches)))

(defun vc-mcvs-revert (file &optional contents-done)
  "Revert FILE to the version it was based on."
  (vc-default-revert file contents-done)
  (unless (eq (vc-checkout-model file) 'implicit)
    (if vc-mcvs-use-edit

50808:5a0d0a9219f3

;; - C-x v v to commit a file
;; - C-x v =
;; - C-x v l
;; - C-x v i
;; - C-x v g
;; - M-x vc-rename-file RET

;;; Bugs:

;; - VC-dired doesn't work.

(defun vc-mcvs-workfile-version (file) (vc-mcvs-cvs workfile-version file))

(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
;;;

	   (if (or (not rev) (string= rev ""))
	       "-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."
  (vc-default-revert file contents-done)
  (unless (eq (vc-checkout-model file) 'implicit)
    (if vc-mcvs-use-edit