[elpa] externals/vc-backup 4d46c5e 15/18: Print entire file name in version log

[ELPA Syncer]

branch: externals/vc-backup
commit 4d46c5eb00d124a6172d30ded79f035195be0652
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Print entire file name in version log
---
 vc-backup.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/vc-backup.el b/vc-backup.el
index b134f47..3f777db 100644
--- a/vc-backup.el
+++ b/vc-backup.el
@@ -298,11 +298,12 @@ 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)))
+               (base (file-name-nondirectory file))
                (uid (file-attribute-user-id attr))
                (user (or (user-login-name uid) uid))
                (time (file-attribute-modification-time attr))
                (date (format-time-string "%c" time)))
-          (insert (format "v%-25s%s (%s)\n" (car rev) date user)))))
+          (insert (format "%s%s\t%s (%s)\n" base (car rev) date user)))))
     (goto-char (point-min))
     (forward-line 2))
   'limit-unsupported)
@@ -316,7 +317,7 @@ The results are written into BUFFER."
 (define-derived-mode vc-backup-log-view-mode log-view-mode "Backup Log"
   "VC-Log Mode for Backup."
   (setq-local log-view-file-re "\\`Backups for \\(.+\\)$")
-  (setq-local log-view-message-re (concat "^v\\(" file-name-version-regexp 
"\\)")))
+  (setq-local log-view-message-re (concat "^.*?\\(" file-name-version-regexp 
"\\)")))
 
 ;; - show-log-entry (revision)