(vc-mcvs-annotate-command): Delete extraneous lines from beginning of buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7c72f3bd6833d55dd32a7473a580ed1253c621a..9e6bdf07cb92b476ec574665f2e3b32c66d335c2 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2004-11-03  Thien-Thi Nguyen  <ttn@gnu.org>
 
+       * vc-cvs.el (vc-cvs-annotate-command):
+       Delete extraneous lines from beginning of buffer.
+       * vc-mcvs.el (vc-mcvs-annotate-command): Likewise.
+
        * progmodes/grep.el (grep-default-command): Take empty string
        for tag if all other methods yield nil.  Shell-quote the tag.
 

diff --git a/lisp/vc-mcvs.el b/lisp/vc-mcvs.el
index d2ac776170f2e2b0a8c8397e037a94e9011f8b15..ea577489239ea8fe2864e7b601315c943e867a8d 100644 (file)
--- a/lisp/vc-mcvs.el
+++ b/lisp/vc-mcvs.el
@@ -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 @@ Optional arg VERSION is a version to annotate from."
   (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)