From 38179d42888c5f2827f8f8d51729028d425c02b9 Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Fri, 12 May 1995 16:39:32 +0000 Subject: [PATCH] (vc-status): If vc-locking-user returns a number, compare it to (user-uid). --- lisp/vc-hooks.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 83e91697ca9..8b4d8ab748e 100644 --- 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 ;; 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))))) -- 2.39.2