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

38179d42 · Roland McGrath · 0e2d2f37 · 38179d42
Commit 38179d42 authored May 12, 1995 by Roland McGrath
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 4 deletions

lisp/vc-hooks.el lisp/vc-hooks.el +6 -4

No files found.
--- a/lisp/vc-hooks.el
+++ b/lisp/vc-hooks.el
 ;;; 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)))))