mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

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

Browse Source 
`string'.  This allows us to get rid of `vc-user-login-name UID'.
This commit is contained in:
André Spiegel 2006-01-22 16:10:07 +00:00
parent b010f88755
commit bbd883480c
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/vc-sccs.el
View File

@ -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))))