comparison lisp/vc-mcvs.el @ 89909:68c22ea6027c

Sync to HEAD

89908:ee1402f7b568

;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system

;; Copyright (C) 1995,98,99,2000,01,02,2003  Free Software Foundation, Inc.

;; Author:      FSF (see vc.el for full credits)
;; Maintainer:  Stefan Monnier <[e-mail]>

;; This file is part of GNU Emacs.

			 ;; The file might not be registered yet because
			 ;; of lazy-adding.
			 0))
      t)))

(defmacro vc-mcvs-cvs (op file &rest args)
  (declare (debug t))
  `(,(intern (concat "vc-cvs-" (symbol-name op)))
    (expand-file-name (vc-file-getprop ,file 'mcvs-inode)
		      (vc-file-getprop ,file 'mcvs-root))
    ,@args))

(defun vc-mcvs-state (file)
  ;; This would assume the Meta-CVS sandbox is synchronized.
  ;; (vc-mcvs-cvs state file))
  "Meta-CVS-specific version of `vc-state'."
  (if (vc-stay-local-p file)

	    (narrow-to-region (match-beginning 0) (match-end 0))
	    (vc-cvs-parse-status)
	    (goto-char (point-max))
	    (widen)))))))

(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)))
    (when s
      (if (and (not (memq (vc-state file) '(up-to-date needs-patch)))
	       (string-match "\\`CVS-" s))
	  ;; The CVS file is not in sync, so we need to adjust the state.
	  (concat "MCVS:" (substring s 4))
	(concat "M" s)))))

;;;
;;; State-changing functions
;;;

	;; No need to filter: do it the easy way.
	(apply 'vc-do-command buffer okstatus "mcvs" file args)
      ;; We need to filter the output.
      ;; The output of the filter uses filenames relative to the root,
      ;; so we need to change the default-directory.
      (assert (equal default-directory (vc-mcvs-root file)))
      (vc-do-command
       buffer okstatus "sh" nil "-c"
       (concat "mcvs "
	       (mapconcat
		'shell-quote-argument

(defalias 'vc-mcvs-valid-symbolic-tag-name-p 'vc-cvs-valid-symbolic-tag-name-p)
(defalias 'vc-mcvs-valid-version-number-p 'vc-cvs-valid-version-number-p)

(provide 'vc-mcvs)
;;; vc-mcvs.el ends here

89909:68c22ea6027c

;;; vc-mcvs.el --- VC backend for the Meta-CVS version-control system

;; Copyright (C) 1995,98,99,2000,01,02,03,2004  Free Software Foundation, Inc.

;; Author:      FSF (see vc.el for full credits)
;; Maintainer:  Stefan Monnier <[e-mail]>

;; This file is part of GNU Emacs.

			 ;; The file might not be registered yet because
			 ;; of lazy-adding.
			 0))
      t)))

(defun vc-mcvs-state (file)
  ;; This would assume the Meta-CVS sandbox is synchronized.
  ;; (vc-mcvs-cvs state file))
  "Meta-CVS-specific version of `vc-state'."
  (if (vc-stay-local-p file)

	    (narrow-to-region (match-beginning 0) (match-end 0))
	    (vc-cvs-parse-status)
	    (goto-char (point-max))
	    (widen)))))))

(defun vc-mcvs-workfile-version (file)
  (vc-cvs-workfile-version
   (expand-file-name (vc-file-getprop file 'mcvs-inode)
		     (vc-file-getprop file 'mcvs-root))))

(defalias 'vc-mcvs-checkout-model 'vc-cvs-checkout-model)

;;;
;;; State-changing functions
;;;

	;; No need to filter: do it the easy way.
	(apply 'vc-do-command buffer okstatus "mcvs" file args)
      ;; We need to filter the output.
      ;; The output of the filter uses filenames relative to the root,
      ;; so we need to change the default-directory.
      ;; (assert (equal default-directory (vc-mcvs-root file)))
      (vc-do-command
       buffer okstatus "sh" nil "-c"
       (concat "mcvs "
	       (mapconcat
		'shell-quote-argument

(defalias 'vc-mcvs-valid-symbolic-tag-name-p 'vc-cvs-valid-symbolic-tag-name-p)
(defalias 'vc-mcvs-valid-version-number-p 'vc-cvs-valid-version-number-p)

(provide 'vc-mcvs)

;;; arch-tag: a39c7c1c-5247-429d-88df-dd7187d2e704
;;; vc-mcvs.el ends here