# HG changeset patch # User Andr Spiegel # Date 1014674604 0 # Node ID d4dab5e8395fd74ba0f531f3bf847fe030f64639 # Parent 143e4daefa5ed900cbecb3ab432f39247e9c7818 (vc-cvs-diff, vc-cvs-diff-tree): Use consistent parameter format for vc-diff-switches-list. diff -r 143e4daefa5e -r d4dab5e8395f lisp/vc-cvs.el --- a/lisp/vc-cvs.el Mon Feb 25 22:00:51 2002 +0000 +++ b/lisp/vc-cvs.el Mon Feb 25 22:03:24 2002 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.31 2002/01/08 20:00:19 spiegel Exp $ +;; $Id: vc-cvs.el,v 1.33 2002/02/21 20:16:47 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -559,7 +559,7 @@ (defun vc-cvs-diff (file &optional oldvers newvers) "Get a difference report using CVS between two versions of FILE." - (let (options status (diff-switches-list (vc-diff-switches-list cvs))) + (let (options status (diff-switches-list (vc-diff-switches-list 'CVS))) (if (string= (vc-workfile-version file) "0") ;; This file is added but not yet committed; there is no master file. (if (or oldvers newvers) @@ -605,7 +605,7 @@ (apply 'vc-do-command "*vc-diff*" 1 "cvs" nil "diff" (and rel1 (concat "-r" rel1)) (and rel2 (concat "-r" rel2)) - (vc-diff-switches-list cvs)))))) + (vc-diff-switches-list 'CVS)))))) (defun vc-cvs-annotate-command (file buffer &optional version) "Execute \"cvs annotate\" on FILE, inserting the contents in BUFFER.