(vc-status): If vc-locking-user returns a number, compare it to (user-uid).

diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el
index 83e91697ca9aab49b52253a2ad36c9ba899a69e8..8b4d8ab748e7c84ca3db571678dd4b196858ab6f 100644 (file)
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
@@ -1,6 +1,6 @@
 ;;; vc-hooks.el --- resident support for version-control
 
-;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc.
+;; Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
 
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Modified by:
@@ -724,9 +724,11 @@ control system name."
        (rev (vc-workfile-version file)))
     (cond ((string= "0" rev)
           " @@")
-          ((not locker)
-           (concat "-" rev))
-         ((string= locker (user-login-name)) 
+         ((not locker)
+          (concat "-" rev))
+         ((if (stringp locker)
+              (string= locker (user-login-name))
+            (= locker (user-uid)))
           (concat ":" rev))
          (t 
           (concat ":" locker ":" rev)))))