martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(vc-file-owner): If the file is owned by somebody else, return the UID

Browse Source 
as a string, so that the rest of VC can use it like a username.
This commit is contained in:
André Spiegel
1996-09-08 11:53:34 +00:00
parent 6dfe5fe02d
commit 79bdae7a23
1 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/vc-hooks.el
View File

@@ -570,18 +570,14 @@ For CVS, the full name of CVS/Entries is returned."
(defun vc-file-owner (file)
;; The expression below should return the username of the owner
;; of the file. It doesn't. It returns the username if it is
;; you, or otherwise the UID of the owner of the file. The
;; return value from this function is only used by
;; vc-dired-reformat-line, and it does the proper thing if a UID
;; is returned.
;; you, or otherwise the UID of the owner of the file. The UID
;; is returned as a string, so that the rest of VC doesn't notice
;; the difference.
;; The *proper* way to fix this would be to implement a built-in
;; function in Emacs, say, (username UID), that returns the
;; username of a given UID.
;; The result of this hack is that vc-directory will print the
;; name of the owner of the file for any files that are
;; modified.
(let ((uid (nth 2 (file-attributes file))))
(if (= uid (user-uid)) (user-login-name) uid)))
(if (= uid (user-uid)) (user-login-name) (number-to-string uid))))
(defun vc-rcs-lock-from-diff (file)
;; Diff the file against the master version. If differences are found,