(vc-dired-reformat-line): Display eight character user names correctly.

This commit is contained in:
Richard M. Stallman 1995-08-10 19:46:16 +00:00
parent 314001b564
commit 8cc8dc43f7

View file

@ -1138,7 +1138,7 @@ on a buffer attached to the file named in the current Dired buffer line."
(t
(if x (setq x (concat "(" x ")")))
(if (re-search-forward "\\([0-9]+ \\).................\\( .*\\)" nil 0)
(let ((rep (substring (concat x " ") 0 9)))
(let ((rep (substring (concat x " ") 0 10)))
(replace-match (concat "\\1" rep "\\2") t)))
)))