26 |
;;; Commentary: |
;;; Commentary: |
27 |
|
|
28 |
;; The home page of the Meta-CVS version control system is at |
;; The home page of the Meta-CVS version control system is at |
29 |
;; |
;; |
30 |
;; http://users.footprints.net/~kaz/mcvs.html |
;; http://users.footprints.net/~kaz/mcvs.html |
31 |
;; |
;; |
32 |
;; This is derived from vc-cvs.el as follows: |
;; This is derived from vc-cvs.el as follows: |
33 |
;; - cp vc-cvs.el vc-mcvs.el |
;; - cp vc-cvs.el vc-mcvs.el |
34 |
;; - Replace CVS/ with MCVS/CVS/ |
;; - Replace CVS/ with MCVS/CVS/ |
478 |
(vc-mcvs-command |
(vc-mcvs-command |
479 |
buffer |
buffer |
480 |
(if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0) |
(if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0) |
481 |
file "annotate" (if version (concat "-r" version)))) |
file "annotate" (if version (concat "-r" version))) |
482 |
|
(with-current-buffer buffer |
483 |
|
(goto-char (point-min)) |
484 |
|
(re-search-forward "^[0-9]") |
485 |
|
(delete-region (point-min) (1- (point))))) |
486 |
|
|
487 |
(defalias 'vc-mcvs-annotate-current-time 'vc-cvs-annotate-current-time) |
(defalias 'vc-mcvs-annotate-current-time 'vc-cvs-annotate-current-time) |
488 |
(defalias 'vc-mcvs-annotate-time 'vc-cvs-annotate-time) |
(defalias 'vc-mcvs-annotate-time 'vc-cvs-annotate-time) |