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 | 26cd69b3c4d6cbb6cb36da5ee2850eba2a987869 (patch) | |
tree | 65da1b22e5506869917e630267c522bfcb6df8e1 /lisp/vc-rcs.el | |
parent | 7cfb0ee5d99e58d9f8d8426d7cbea1fcdb1dd732 (diff) | |
download | emacs-26cd69b3c4d6cbb6cb36da5ee2850eba2a987869.tar.gz |
Change 'needs-patch to 'needs-update.
Diffstat (limited to 'lisp/vc-rcs.el')
-rw-r--r-- | lisp/vc-rcs.el | 38 |
1 files changed, 20 insertions, 18 deletions
diff --git a/lisp/vc-rcs.el b/lisp/vc-rcs.el index a1b10aaa541..e87abef125f 100644 --- a/lisp/vc-rcs.el +++ b/lisp/vc-rcs.el @@ -118,23 +118,25 @@ For a description of possible values, see `vc-check-master-templates'." (defun vc-rcs-state (file) "Implementation of `vc-state' for RCS." - (or (boundp 'vc-rcs-headers-result) - (and vc-consult-headers - (vc-rcs-consult-headers file))) - (let ((state - ;; vc-working-revision might not be known; in that case the - ;; property is nil. vc-rcs-fetch-master-state knows how to - ;; handle that. - (vc-rcs-fetch-master-state file - (vc-file-getprop file - 'vc-working-revision)))) - (if (not (eq state 'up-to-date)) - state - (if (vc-workfile-unchanged-p file) - 'up-to-date - (if (eq (vc-rcs-checkout-model file) 'locking) - 'unlocked-changes - 'edited))))) + (if (not (vc-rc-registered f)) + 'unregistered + (or (boundp 'vc-rcs-headers-result) + (and vc-consult-headers + (vc-rcs-consult-headers file))) + (let ((state + ;; vc-working-revision might not be known; in that case the + ;; property is nil. vc-rcs-fetch-master-state knows how to + ;; handle that. + (vc-rcs-fetch-master-state file + (vc-file-getprop file + 'vc-working-revision)))) + (if (not (eq state 'up-to-date)) + state + (if (vc-workfile-unchanged-p file) + 'up-to-date + (if (eq (vc-rcs-checkout-model file) 'locking) + 'unlocked-changes + 'edited)))))) (defun vc-rcs-state-heuristic (file) "State heuristic for RCS." @@ -889,7 +891,7 @@ file." ;; workfile version is latest on branch 'up-to-date ;; workfile version is not latest on branch - 'needs-patch)) + 'needs-update)) ;; locked by the calling user ((and (stringp locking-user) (string= locking-user (vc-user-login-name file))) |