emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/vc-sccs.el,v


From: Glenn Morris
Subject: [Emacs-diffs] Changes to emacs/lisp/vc-sccs.el,v
Date: Mon, 25 Feb 2008 08:13:23 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       08/02/25 08:13:23

Index: vc-sccs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-sccs.el,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -b -r1.42 -r1.43
--- vc-sccs.el  24 Feb 2008 23:06:05 -0000      1.42
+++ vc-sccs.el  25 Feb 2008 08:13:23 -0000      1.43
@@ -7,8 +7,6 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <address@hidden>
 
-;; $Id$
-
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
@@ -314,9 +312,8 @@
 
 (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"




reply via email to

[Prev in Thread] Current Thread [Next in Thread]