Mercurial > emacs
changeset 16139:f557fb19a26d
(vc-file-owner): If the file is owned by somebody else, return the UID
as a string, so that the rest of VC can use it like a username.
| author | André Spiegel <spiegel@gnu.org> |
|---|---|
| date | Sun, 08 Sep 1996 11:53:34 +0000 |
| parents | 852c9735c076 |
| children | e7de214aac01 |
| files | lisp/vc-hooks.el |
| diffstat | 1 files changed, 4 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc-hooks.el Sun Sep 08 11:52:05 1996 +0000 +++ b/lisp/vc-hooks.el Sun Sep 08 11:53:34 1996 +0000 @@ -570,18 +570,14 @@ (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,