Commit 38179d42 authored by Roland McGrath's avatar Roland McGrath
Browse files

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

parent 0e2d2f37
;;; 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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment