(vc-sccs-diff): Fix setting of oldvers and newvers.

2 files changed, 6 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 244995563a3..31dc2347f97 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-02-25  Glenn Morris  <rgm@gnu.org>
+
+        * vc-sccs.el (vc-sccs-diff): Fix setting of oldvers and newvers.
+
 2008-02-25  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * diff-mode.el (diff-file-junk-re): New const.
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index a22a95521d5..0c1cc41ed64 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -7,8 +7,6 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <spiegel@gnu.org>
 
-;; $Id$
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -314,9 +312,8 @@ locked.  REV is the revision to check out."
 
 (defun vc-sccs-diff (files &optional oldvers newvers buffer)
   "Get a difference report using SCCS between two filesets."
-  ;; FIXME this is broken (`file' versus `files').
-  (setq oldvers (vc-sccs-lookup-triple file oldvers))
-  (setq newvers (vc-sccs-lookup-triple file newvers))
+  (setq oldvers (vc-sccs-lookup-triple (car files) oldvers))
+  (setq newvers (vc-sccs-lookup-triple (car files) newvers))
   (apply 'vc-do-command (or buffer "*vc-diff*")
          1 "vcdiff" (mapcar 'vc-name (vc-expand-dirs files))
          (append (list "-q"