Mercurial > emacs

comparison lisp/vc-cvs.el @ 33545:5411250e7971

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-cvs-annotate-command): New optional arg VERSION. Use vc-do-command to perform the annotation, not call-process.
author André Spiegel <spiegel@gnu.org>
date Thu, 16 Nov 2000 13:38:03 +0000
parents 846bba8718d8
children 8a998774febc
comparison
equal deleted inserted replaced
33544:62062a9538dd 33545:5411250e7971
3 ;; Copyright (C) 1995,98,99,2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1995,98,99,2000 Free Software Foundation, Inc.
4 4
5 ;; Author: FSF (see vc.el for full credits) 5 ;; Author: FSF (see vc.el for full credits)
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> 6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
7 7
8 ;; $Id: vc-cvs.el,v 1.7 2000/10/27 11:37:17 spiegel Exp $ 8 ;; $Id: vc-cvs.el,v 1.8 2000/10/27 15:06:27 spiegel Exp $
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
13 ;; it under the terms of the GNU General Public License as published by 13 ;; it under the terms of the GNU General Public License as published by
647 (concat "-r" rev)) 647 (concat "-r" rev))
648 switches)))) 648 switches))))
649 (vc-mode-line file) 649 (vc-mode-line file)
650 (message "Checking out %s...done" filename))))) 650 (message "Checking out %s...done" filename)))))
651 651
652 (defun vc-cvs-annotate-command (file buffer) 652 (defun vc-cvs-annotate-command (file buffer &optional version)
653 "Execute \"cvs annotate\" on FILE. 653 "Execute \"cvs annotate\" on FILE, inserting the contents in BUFFER.
654 Use `call-process' and insert the contents in BUFFER." 654 Optional arg VERSION is a version to annotate from."
655 (call-process "cvs" nil buffer nil "annotate" file)) 655 (vc-do-command buffer 0 "cvs" file "annotate" (if version
656 (concat "-r" version))))
656 657
657 (defvar vc-cvs-local-month-numbers 658 (defvar vc-cvs-local-month-numbers
658 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4) 659 '(("Jan" . 1) ("Feb" . 2) ("Mar" . 3) ("Apr" . 4)
659 ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8) 660 ("May" . 5) ("Jun" . 6) ("Jul" . 7) ("Aug" . 8)
660 ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12)) 661 ("Sep" . 9) ("Oct" . 10) ("Nov" . 11) ("Dec" . 12))