From cd227df34ce1a9716dad95acc3cccf602611ae39 Mon Sep 17 00:00:00 2001 From: Thien-Thi Nguyen Date: Wed, 3 Nov 2004 14:18:53 +0000 Subject: [PATCH] (vc-mcvs-annotate-command): Delete extraneous lines from beginning of buffer. --- lisp/ChangeLog | 4 ++++ lisp/vc-mcvs.el | 10 +++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7c72f3bd68..9e6bdf07cb9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-11-03 Thien-Thi Nguyen + * 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 d2ac776170f..ea577489239 100644 --- 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) -- 2.39.5