From: André Spiegel <spiegel@gnu.org>
Date: Sun, 22 Jan 2006 16:10:07 +0000 (+0000)
Subject: (vc-sccs-state-heuristic): Use file-attributes with ID-FORMAT
X-Git-Tag: emacs-pretest-22.0.90~4634
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bbd883480c7711cfed104a0430c174262d9c2452;p=emacs.git

(vc-sccs-state-heuristic): Use file-attributes with ID-FORMAT
`string'.  This allows us to get rid of `vc-user-login-name UID'.
---

diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el
index 8f00e1df627..c4047d1b3ec 100644
--- a/lisp/vc-sccs.el
+++ b/lisp/vc-sccs.el
@@ -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))))