Mercurial > emacs

changeset 11803:0e58ab232517

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-status): If vc-locking-user returns a number, compare it to (user-uid).
author Roland McGrath <roland@gnu.org>
date Fri, 12 May 1995 16:39:32 +0000
parents 4edc46a02892
children 7a7da7fca594
files lisp/vc-hooks.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc-hooks.el	Fri May 12 15:49:42 1995 +0000
+++ b/lisp/vc-hooks.el	Fri May 12 16:39:32 1995 +0000
@@ -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 @@
 	(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)))))