From 3702367bcef4d8987b1c6aa06ab29ec0390d6887 Mon Sep 17 00:00:00 2001 From: "Eric S. Raymond" Date: Thu, 1 May 2008 19:13:16 +0000 Subject: Change 'needs-patch to 'needs-update. --- lisp/vc-sccs.el | 28 +++++++++++++++------------- 1 file changed, 15 insertions(+), 13 deletions(-) (limited to 'lisp/vc-sccs.el') diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index 3bcc10416b8..dd9c464f8ef 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -117,19 +117,21 @@ For a description of possible values, see `vc-check-master-templates'." (defun vc-sccs-state (file) "SCCS-specific function to compute the version control state." - (with-temp-buffer - (if (vc-insert-file (vc-sccs-lock-file file)) - (let* ((locks (vc-sccs-parse-locks)) - (working-revision (vc-working-revision file)) - (locking-user (cdr (assoc working-revision locks)))) - (if (not locking-user) - (if (vc-workfile-unchanged-p file) - 'up-to-date - 'unlocked-changes) - (if (string= locking-user (vc-user-login-name file)) - 'edited - locking-user))) - 'up-to-date))) + (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)) + (working-revision (vc-working-revision file)) + (locking-user (cdr (assoc working-revision locks)))) + (if (not locking-user) + (if (vc-workfile-unchanged-p file) + 'up-to-date + 'unlocked-changes) + (if (string= locking-user (vc-user-login-name file)) + 'edited + locking-user))) + 'up-to-date)))) (defun vc-sccs-state-heuristic (file) "SCCS-specific state heuristic." -- cgit v1.2.1