From ffe586ab5c33f6a92cdb190a06b78a18c58c8416 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Thu, 16 Nov 2000 13:38:03 +0000 Subject: [PATCH] (vc-cvs-annotate-command): New optional arg VERSION. Use vc-do-command to perform the annotation, not call-process. --- lisp/vc-cvs.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index e1665068e10..6b2ac473806 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.7 2000/10/27 11:37:17 spiegel Exp $ +;; $Id: vc-cvs.el,v 1.8 2000/10/27 15:06:27 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -649,10 +649,11 @@ REV is the revision to check out into WORKFILE." (vc-mode-line file) (message "Checking out %s...done" filename))))) -(defun vc-cvs-annotate-command (file buffer) - "Execute \"cvs annotate\" on FILE. -Use `call-process' and insert the contents in BUFFER." - (call-process "cvs" nil buffer nil "annotate" file)) +(defun vc-cvs-annotate-command (file buffer &optional version) + "Execute \"cvs annotate\" on FILE, inserting the contents in BUFFER. +Optional arg VERSION is a version to annotate from." + (vc-do-command buffer 0 "cvs" file "annotate" (if version + (concat "-r" version)))) (defvar vc-cvs-local-month-numbers '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) -- 2.39.5