diff options
| author | Glenn Morris <rgm@gnu.org> | 2008-02-24 23:06:05 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2008-02-24 23:06:05 +0000 |
| commit | 59465d84188061767c79419a0227c1c23d09d25a (patch) | |
| tree | a6c73a88ebc71b591dfe70a7652804e261d75985 /lisp/vc-sccs.el | |
| parent | 09607e62d90fa153114934f3312b80d9648b8c0e (diff) | |
| download | emacs-59465d84188061767c79419a0227c1c23d09d25a.tar.gz | |
Comment.
Diffstat (limited to 'lisp/vc-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index 717e459051d..a22a95521d5 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -1,7 +1,8 @@ ;;; vc-sccs.el --- support for SCCS version-control ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, -;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation, Inc. +;; 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 +;; Free Software Foundation, Inc. ;; Author: FSF (see vc.el for full credits) ;; Maintainer: Andre Spiegel <spiegel@gnu.org> @@ -313,9 +314,10 @@ 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)) - (apply 'vc-do-command (or buffer "*vc-diff*") + (apply 'vc-do-command (or buffer "*vc-diff*") 1 "vcdiff" (mapcar 'vc-name (vc-expand-dirs files)) (append (list "-q" (and oldvers (concat "-r" oldvers)) |