~pkal/vc-backup

529c86b4e2045db5b276103242979fc6406621be — Alfred M. Szmidt 5 months ago e819fdc
Print the user who owns the file
1 files changed, 3 insertions(+), 1 deletions(-)

M vc-backup.el
M vc-backup.el => vc-backup.el +3 -1
@@ 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)