# HG changeset patch # User Andr Spiegel # Date 1137946128 0 # Node ID a6ef676caa6dc96d27af4f17f81bcbe22156bec2 # Parent a7c2303e1399d2725c407cd0194dbf61d5e8628d (vc-rcs-state-heuristic): Use file-attributes with ID-FORMAT `string'. This allows us to get rid of `vc-user-login-name UID'. diff -r a7c2303e1399 -r a6ef676caa6d lisp/vc-rcs.el --- a/lisp/vc-rcs.el Sun Jan 22 12:24:02 2006 +0000 +++ b/lisp/vc-rcs.el Sun Jan 22 16:08:48 2006 +0000 @@ -152,8 +152,8 @@ (vc-file-setprop file 'vc-checkout-model 'locking)))) state) (if (not (vc-mistrust-permissions file)) - (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))) (cond ((string-match ".r-..-..-." permissions) (vc-file-setprop file 'vc-checkout-model 'locking) @@ -162,7 +162,7 @@ (if (eq (vc-checkout-model file) 'locking) (if (file-ownership-preserved-p file) 'edited - (vc-user-login-name owner-uid)) + owner-name) (if (vc-rcs-workfile-is-newer file) 'edited 'up-to-date)))