Commit bbd88348 authored by André Spiegel's avatar André Spiegel
Browse files

(vc-sccs-state-heuristic): Use file-attributes with ID-FORMAT

`string'.  This allows us to get rid of `vc-user-login-name UID'.
parent b010f887
......@@ -122,15 +122,15 @@ For a description of possible values, see `vc-check-master-templates'."
;; We have to be careful not to exclude files with execute bits on;
;; scripts can be under version control too. Also, we must ignore the
;; group-read and other-read bits, since paranoid users turn them off.
(let* ((attributes (file-attributes file))
(owner-uid (nth 2 attributes))
(let* ((attributes (file-attributes file 'string))
(owner-name (nth 2 attributes))
(permissions (nth 8 attributes)))
(if (string-match ".r-..-..-." permissions)
'up-to-date
(if (string-match ".rw..-..-." permissions)
(if (file-ownership-preserved-p file)
'edited
(vc-user-login-name owner-uid))
owner-name)
;; Strange permissions.
;; Fall through to real state computation.
(vc-sccs-state file))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment