[Emacs-diffs] Changes to emacs/lisp/vc-rcs.el

[André Spiegel]

Index: emacs/lisp/vc-rcs.el
diff -u emacs/lisp/vc-rcs.el:1.45 emacs/lisp/vc-rcs.el:1.46
--- emacs/lisp/vc-rcs.el:1.45   Sat Aug  6 22:13:43 2005
+++ emacs/lisp/vc-rcs.el        Sun Jan 22 16:08:48 2006
@@ -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)))