From bbd883480c7711cfed104a0430c174262d9c2452 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Sun, 22 Jan 2006 16:10:07 +0000 Subject: [PATCH] (vc-sccs-state-heuristic): Use file-attributes with ID-FORMAT `string'. This allows us to get rid of `vc-user-login-name UID'. --- lisp/vc-sccs.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)))) -- 2.39.2