# HG changeset patch # User Andr Spiegel # Date 1015335050 0 # Node ID 1163adb21e5d3589e2e2654591991df0a04f3fe5 # Parent 6e4bed6ddee1e5e8bcaad07e17de325d4323d744 (vc-cvs-diff-tree): Fix typo in parameter names. diff -r 6e4bed6ddee1 -r 1163adb21e5d lisp/vc-cvs.el --- a/lisp/vc-cvs.el Tue Mar 05 13:16:10 2002 +0000 +++ b/lisp/vc-cvs.el Tue Mar 05 13:30:50 2002 +0000 @@ -5,7 +5,7 @@ ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel -;; $Id: vc-cvs.el,v 1.33 2002/02/21 20:16:47 spiegel Exp $ +;; $Id: vc-cvs.el,v 1.34 2002/02/25 22:03:24 spiegel Exp $ ;; This file is part of GNU Emacs. @@ -397,7 +397,7 @@ (apply 'vc-do-command (current-buffer) 0 "cvs" file "-Q" ; suppress diagnostic output - "update" + "update" (and rev (not (string= rev "")) (concat "-r" rev)) "-p" @@ -598,13 +598,13 @@ ;; in the tree via vc-cvs-dir-state-heuristic (unless (vc-up-to-date-p ',f) (message "Looking at %s" ',f) - (vc-diff-internal ',f ',rel1 ',rel2)))))) + (vc-diff-internal ',f ',rev1 ',rev2)))))) ;; cvs diff: use a single call for the entire tree (let ((coding-system-for-read (or coding-system-for-read 'undecided))) (apply 'vc-do-command "*vc-diff*" 1 "cvs" nil "diff" - (and rel1 (concat "-r" rel1)) - (and rel2 (concat "-r" rel2)) + (and rev1 (concat "-r" rev1)) + (and rev2 (concat "-r" rev2)) (vc-diff-switches-list 'CVS)))))) (defun vc-cvs-annotate-command (file buffer &optional version)