# HG changeset patch
# User Thien-Thi Nguyen <ttn@gnuvola.org>
# Date 1099491423 0
# Node ID 4afd8cdfd00e73226a1572e5813f022051b31173
# Parent  f5d7d9bbc02114abb2bef0572a4abf27db98b401
(vc-mcvs-annotate-command): Delete extraneous lines from beginning of buffer.

diff -r f5d7d9bbc021 -r 4afd8cdfd00e lisp/vc-mcvs.el
--- a/lisp/vc-mcvs.el	Wed Nov 03 14:16:14 2004 +0000
+++ b/lisp/vc-mcvs.el	Wed Nov 03 14:17:03 2004 +0000
@@ -26,9 +26,9 @@
 ;;; Commentary:
 
 ;; The home page of the Meta-CVS version control system is at
-;; 
+;;
 ;;      http://users.footprints.net/~kaz/mcvs.html
-;; 
+;;
 ;; This is derived from vc-cvs.el as follows:
 ;; - cp vc-cvs.el vc-mcvs.el
 ;; - Replace CVS/ with MCVS/CVS/
@@ -478,7 +478,11 @@
   (vc-mcvs-command
    buffer
    (if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0)
-   file "annotate" (if version (concat "-r" version))))
+   file "annotate" (if version (concat "-r" version)))
+  (with-current-buffer buffer
+    (goto-char (point-min))
+    (re-search-forward "^[0-9]")
+    (delete-region (point-min) (1- (point)))))
 
 (defalias 'vc-mcvs-annotate-current-time 'vc-cvs-annotate-current-time)
 (defalias 'vc-mcvs-annotate-time 'vc-cvs-annotate-time)