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

[André Spiegel]

Index: emacs/lisp/vc-sccs.el
diff -c emacs/lisp/vc-sccs.el:1.22 emacs/lisp/vc-sccs.el:1.23
*** emacs/lisp/vc-sccs.el:1.22  Thu May  8 15:18:33 2003
--- emacs/lisp/vc-sccs.el       Tue Aug 12 14:01:21 2003
***************
*** 5,11 ****
  ;; Author:     FSF (see vc.el for full credits)
  ;; Maintainer: Andre Spiegel <address@hidden>
  
! ;; $Id: vc-sccs.el,v 1.22 2003/05/08 19:18:33 monnier 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.23 2003/08/12 18:01:21 spiegel Exp $
  
  ;; This file is part of GNU Emacs.
  
***************
*** 130,144 ****
                (if (file-ownership-preserved-p file)
                    'edited
                  (vc-user-login-name owner-uid))
!           ;; Strange permissions.
!           ;; Fall through to real state computation.
!           (vc-sccs-state file)))
!     (vc-sccs-state file))))
  
  (defun vc-sccs-workfile-version (file)
    "SCCS-specific version of `vc-workfile-version'."
    (with-temp-buffer
!     (vc-insert-file (vc-name file) "^\001e")
      (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1)))
  
  (defun vc-sccs-checkout-model (file)
--- 130,148 ----
                (if (file-ownership-preserved-p file)
                    'edited
                  (vc-user-login-name owner-uid))
!             ;; Strange permissions.
!             ;; Fall through to real state computation.
!             (vc-sccs-state file))))
!     (vc-sccs-state file)))
  
  (defun vc-sccs-workfile-version (file)
    "SCCS-specific version of `vc-workfile-version'."
    (with-temp-buffer
!     ;; The workfile version is always the latest version number.
!     ;; To find this number, search the entire delta table,
!     ;; rather than just the first entry, because the
!     ;; first entry might be a deleted ("R") version.
!     (vc-insert-file (vc-name file) "^\001e\n\001[^s]")
      (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1)))
  
  (defun vc-sccs-checkout-model (file)