/[emacs]/emacs/lisp/vc-mcvs.el
ViewVC logotype

Diff of /emacs/lisp/vc-mcvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.11.2.4 by miles, Thu Sep 16 00:14:59 2004 UTC revision 1.11.2.5 by miles, Thu Nov 4 13:12:40 2004 UTC
# Line 26  Line 26 
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/
# Line 478  Optional arg VERSION is a version to ann Line 478  Optional arg VERSION is a version to ann
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)

Legend:
Removed from v.1.11.2.4  
changed lines
  Added in v.1.11.2.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26