Mercurial > emacs

comparison lisp/vc-sccs.el @ 94521:2a61c5f918a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change 'needs-patch to 'needs-update.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 01 May 2008 19:13:16 +0000
parents fad57210c7d2
children a69dcc2c42ae
comparison
equal deleted inserted replaced
94520:069edac43148 94521:2a61c5f918a5
115 ;;;###autoload (defun vc-sccs-registered(f) (vc-default-registered 'SCCS f)) 115 ;;;###autoload (defun vc-sccs-registered(f) (vc-default-registered 'SCCS f))
116 (defun vc-sccs-registered (f) (vc-default-registered 'SCCS f)) 116 (defun vc-sccs-registered (f) (vc-default-registered 'SCCS f))
117 117
118 (defun vc-sccs-state (file) 118 (defun vc-sccs-state (file)
119 "SCCS-specific function to compute the version control state." 119 "SCCS-specific function to compute the version control state."
120 (with-temp-buffer 120 (if (not (vc-sccs-registered file))
121 (if (vc-insert-file (vc-sccs-lock-file file)) 121 'unregistered
122 (let* ((locks (vc-sccs-parse-locks)) 122 (with-temp-buffer
123 (working-revision (vc-working-revision file)) 123 (if (vc-insert-file (vc-sccs-lock-file file))
124 (locking-user (cdr (assoc working-revision locks)))) 124 (let* ((locks (vc-sccs-parse-locks))
125 (if (not locking-user) 125 (working-revision (vc-working-revision file))
126 (if (vc-workfile-unchanged-p file) 126 (locking-user (cdr (assoc working-revision locks))))
127 'up-to-date 127 (if (not locking-user)
128 'unlocked-changes) 128 (if (vc-workfile-unchanged-p file)
129 (if (string= locking-user (vc-user-login-name file)) 129 'up-to-date
130 'edited 130 'unlocked-changes)
131 locking-user))) 131 (if (string= locking-user (vc-user-login-name file))
132 'up-to-date))) 132 'edited
133 locking-user)))
134 'up-to-date))))
133 135
134 (defun vc-sccs-state-heuristic (file) 136 (defun vc-sccs-state-heuristic (file)
135 "SCCS-specific state heuristic." 137 "SCCS-specific state heuristic."
136 (if (not (vc-mistrust-permissions file)) 138 (if (not (vc-mistrust-permissions file))
137 ;; This implementation assumes that any file which is under version 139 ;; This implementation assumes that any file which is under version