branch: externals/vc-backup
commit 529c86b4e2045db5b276103242979fc6406621be
Author: Alfred M. Szmidt <[email protected]>
Commit: Philip Kaludercic <[email protected]>
Print the user who owns the file
---
vc-backup.el | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/vc-backup.el b/vc-backup.el
index 9100974..3cc5f76 100644
--- a/vc-backup.el
+++ b/vc-backup.el
@@ -297,9 +297,11 @@ The results are written into BUFFER."
(insert "Backups for " file "\n\n")
(dolist (rev (nreverse (vc-backup--list-backup-versions file)))
(let* ((attr (file-attributes (cdr rev)))
+ (suid (file-attribute-user-id attr))
+ (suser (or (user-login-name suid) suid))
(stime (file-attribute-modification-time attr))
(sdate (format-time-string "%c" stime)))
- (insert (format "v%-25s%s\n" (car rev) sdate)))))
+ (insert (format "v%-25s%s (%s)\n" (car rev) sdate suser)))))
(goto-char (point-min))
(forward-line 2))
'limit-unsupported)
