diff options
| author | Richard M. Stallman | 1995-08-10 19:46:16 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-08-10 19:46:16 +0000 |
| commit | 8cc8dc43f76a87f358f71d47c6db5c8a011b032d (patch) | |
| tree | a3ceba0031aa78f21a76d996866e03b18e0034c2 /lisp/vc.el | |
| parent | 314001b564b1b3becefb94d79f6f2d9df328354e (diff) | |
| download | emacs-8cc8dc43f76a87f358f71d47c6db5c8a011b032d.tar.gz emacs-8cc8dc43f76a87f358f71d47c6db5c8a011b032d.zip | |
(vc-dired-reformat-line): Display eight character user names correctly.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index fa38ca4f0d5..902367e5ac4 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -1138,7 +1138,7 @@ on a buffer attached to the file named in the current Dired buffer line." | |||
| 1138 | (t | 1138 | (t |
| 1139 | (if x (setq x (concat "(" x ")"))) | 1139 | (if x (setq x (concat "(" x ")"))) |
| 1140 | (if (re-search-forward "\\([0-9]+ \\).................\\( .*\\)" nil 0) | 1140 | (if (re-search-forward "\\([0-9]+ \\).................\\( .*\\)" nil 0) |
| 1141 | (let ((rep (substring (concat x " ") 0 9))) | 1141 | (let ((rep (substring (concat x " ") 0 10))) |
| 1142 | (replace-match (concat "\\1" rep "\\2") t))) | 1142 | (replace-match (concat "\\1" rep "\\2") t))) |
| 1143 | ))) | 1143 | ))) |
| 1144 | 1144 | ||