diff lisp/vc-sccs.el @ 88123:375f2633d815

New directory

--- a/lisp/vc-sccs.el	Thu Sep 04 04:00:49 2003 +0000
+++ b/lisp/vc-sccs.el	Mon Sep 08 11:56:09 2003 +0000
@@ -5,7 +5,7 @@
 ;; Author:     FSF (see vc.el for full credits)
 ;; Maintainer: Andre Spiegel <[e-mail]>
 
-;; $Id: vc-sccs.el,v 1.23 2003/08/12 18:01:21 spiegel Exp $
+;; $Id: vc-sccs.el,v 1.21 2003/02/04 12:11:54 lektu Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -130,19 +130,15 @@
               (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)))
+          ;; 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-insert-file (vc-name file) "^\001e")
     (vc-parse-buffer "^\001d D \\([^ ]+\\)" 1)))
 
 (defun vc-sccs-checkout-model (file)
@@ -397,5 +393,4 @@
 
 (provide 'vc-sccs)
 
-;;; arch-tag: d751dee3-d7b3-47e1-95e3-7ae98c052041
 ;;; vc-sccs.el ends here