From 510f6466f331fa1e7d924f41ca5cde1eea430dc6 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andr=C3=A9=20Spiegel?= Date: Wed, 25 Jan 2006 18:55:41 +0000 Subject: [PATCH] (vc-default-dired-state-info): Pass FILE to vc-user-login-name. (vc-default-update-changelog): Don't use vc-user-login-name, we don't need it here. --- lisp/vc.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/vc.el b/lisp/vc.el index bf3486a9b67..6fa31fa6502 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -2119,7 +2119,7 @@ There is a special command, `*l', to mark all files currently locked." (let ((state (vc-state file))) (cond ((stringp state) (concat "(" state ")")) - ((eq state 'edited) (concat "(" (vc-user-login-name) ")")) + ((eq state 'edited) (concat "(" (vc-user-login-name file) ")")) ((eq state 'needs-merge) "(merge)") ((eq state 'needs-patch) "(patch)") ((eq state 'unlocked-changes) "(stale)")))) @@ -2852,6 +2852,8 @@ Uses `rcs2log' which only works for RCS and CVS." (expand-file-name "vc" (or small-temporary-file-directory temporary-file-directory)))) + (login-name (or user-login-name + (format "uid%d" (number-to-string (user-uid))))) (full-name (or add-log-full-name (user-full-name) (user-login-name) @@ -2874,7 +2876,7 @@ Uses `rcs2log' which only works for RCS and CVS." exec-directory) nil (list t tempfile) nil "-c" changelog - "-u" (concat (vc-user-login-name) + "-u" (concat login-name "\t" full-name "\t" mailing-address) (mapcar -- 2.39.2