diff options
| -rw-r--r-- | lisp/vc/vc-git.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index f8b0b6fcd54..5d06bf7f357 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el | |||
| @@ -284,7 +284,7 @@ Should be consistent with the Git config value i18n.logOutputEncoding." | |||
| 284 | (def-ml (vc-default-mode-line-string 'Git file)) | 284 | (def-ml (vc-default-mode-line-string 'Git file)) |
| 285 | (help-echo (get-text-property 0 'help-echo def-ml)) | 285 | (help-echo (get-text-property 0 'help-echo def-ml)) |
| 286 | (face (get-text-property 0 'face def-ml))) | 286 | (face (get-text-property 0 'face def-ml))) |
| 287 | (propertize (replace-regexp-in-string (concat rev "\\'") disp-rev def-ml t t) | 287 | (propertize (concat (substring def-ml 0 4) disp-rev) |
| 288 | 'face face | 288 | 'face face |
| 289 | 'help-echo (concat help-echo "\nCurrent revision: " rev)))) | 289 | 'help-echo (concat help-echo "\nCurrent revision: " rev)))) |
| 290 | 290 | ||