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

[Miles Bader]

Index: emacs/lisp/vc-sccs.el
diff -c emacs/lisp/vc-sccs.el:1.20 emacs/lisp/vc-sccs.el:1.21
*** emacs/lisp/vc-sccs.el:1.20  Thu Dec 26 09:07:15 2002
--- emacs/lisp/vc-sccs.el       Tue Feb  4 07:11:54 2003
***************
*** 5,11 ****
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-sccs.el,v 1.20 2002/12/26 14:07:15 spiegel Exp $
  
  ;; This file is part of GNU Emacs.
  
--- 5,11 ----
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-sccs.el,v 1.21 2003/02/04 12:11:54 lektu Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 28,37 ****
  
  ;;; Code:
  
! (eval-when-compile 
    (require 'vc))
  
! ;;; 
  ;;; Customization options
  ;;;
  
--- 28,37 ----
  
  ;;; Code:
  
! (eval-when-compile
    (require 'vc))
  
! ;;;
  ;;; Customization options
  ;;;
  
***************
*** 242,248 ****
          ;; the file in the right place.
          (setq default-directory (file-name-directory file))
  
!         (and rev (or (string= rev "") 
                         (not (stringp rev)))
                 (setq rev nil))
          (apply 'vc-do-command nil 0 "get" (vc-name file)
--- 242,248 ----
          ;; the file in the right place.
          (setq default-directory (file-name-directory file))
  
!         (and rev (or (string= rev "")
                         (not (stringp rev)))
                 (setq rev nil))
          (apply 'vc-do-command nil 0 "get" (vc-name file)
***************
*** 294,300 ****
    "Get a difference report using SCCS between two versions of FILE."
    (setq oldvers (vc-sccs-lookup-triple file oldvers))
    (setq newvers (vc-sccs-lookup-triple file newvers))
!   (apply 'vc-do-command "*vc-diff*" 1 "vcdiff" (vc-name file) 
           (append (list "-q"
                         (and oldvers (concat "-r" oldvers))
                         (and newvers (concat "-r" newvers)))
--- 294,300 ----
    "Get a difference report using SCCS between two versions of FILE."
    (setq oldvers (vc-sccs-lookup-triple file oldvers))
    (setq newvers (vc-sccs-lookup-triple file newvers))
!   (apply 'vc-do-command "*vc-diff*" 1 "vcdiff" (vc-name file)
           (append (list "-q"
                         (and oldvers (concat "-r" oldvers))
                         (and newvers (concat "-r" newvers)))