# HG changeset patch # User Andr Spiegel # Date 1137946207 0 # Node ID ccad9ac08a6d0f3fc732d5f05ad6845e72a295cc # Parent a6ef676caa6dc96d27af4f17f81bcbe22156bec2 (vc-sccs-state-heuristic): Use file-attributes with ID-FORMAT `string'. This allows us to get rid of `vc-user-login-name UID'. diff -r a6ef676caa6d -r ccad9ac08a6d lisp/vc-sccs.el --- a/lisp/vc-sccs.el Sun Jan 22 16:08:48 2006 +0000 +++ b/lisp/vc-sccs.el Sun Jan 22 16:10:07 2006 +0000 @@ -122,15 +122,15 @@ ;; 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))))