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

[Eric S. Raymond]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Eric S. Raymond <esr>   08/05/01 19:13:16

Index: vc-sccs.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/vc-sccs.el,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -b -r1.46 -r1.47
--- vc-sccs.el  19 Apr 2008 21:53:55 -0000      1.46
+++ vc-sccs.el  1 May 2008 19:13:15 -0000       1.47
@@ -117,6 +117,8 @@
 
 (defun vc-sccs-state (file)
   "SCCS-specific function to compute the version control state."
+  (if (not (vc-sccs-registered file))
+      'unregistered
   (with-temp-buffer
     (if (vc-insert-file (vc-sccs-lock-file file))
         (let* ((locks (vc-sccs-parse-locks))
@@ -129,7 +131,7 @@
             (if (string= locking-user (vc-user-login-name file))
                 'edited
               locking-user)))
-      'up-to-date)))
+       'up-to-date))))
 
 (defun vc-sccs-state-heuristic (file)
   "SCCS-specific state heuristic."