mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Roland McGrath 1995-05-12 16:39:32 +00:00
parent 0e2d2f3753
commit 38179d4288
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/vc-hooks.el
View File

@ -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)))))