diff options
| author | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-01 19:13:16 +0000 |
|---|---|---|
| committer | Eric S. Raymond <esr@snark.thyrsus.com> | 2008-05-01 19:13:16 +0000 |
| commit | 3702367bcef4d8987b1c6aa06ab29ec0390d6887 (patch) | |
| tree | 28e5ebf63522f5a5b0930eeccaf573a613b6b0b3 /lisp/vc-sccs.el | |
| parent | a84615c77a3642de1ddc4f488017adfab586a33e (diff) | |
| download | emacs-3702367bcef4d8987b1c6aa06ab29ec0390d6887.tar.gz | |
Change 'needs-patch to 'needs-update.
Diffstat (limited to 'lisp/vc-sccs.el')
| -rw-r--r-- | lisp/vc-sccs.el | 28 |
1 files changed, 15 insertions, 13 deletions
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." |