Mercurial > emacs
changeset 43533:d4dab5e8395f
(vc-cvs-diff, vc-cvs-diff-tree): Use consistent parameter format for
vc-diff-switches-list.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Mon, 25 Feb 2002 22:03:24 +0000 |
| parents | 143e4daefa5e |
| children | 5a78c5fa41a1 |
| files | lisp/vc-cvs.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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 <spiegel@gnu.org> -;; $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.