diff options
| -rw-r--r-- | lisp/vc.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 19b2f0f4a72..9a782b4f11d 100644 --- a/lisp/vc.el +++ b/lisp/vc.el | |||
| @@ -3310,8 +3310,8 @@ The annotations are relative to the current time, unless overridden by OFFSET." | |||
| 3310 | (let* ((color (or (vc-annotate-compcar difference vc-annotate-color-map) | 3310 | (let* ((color (or (vc-annotate-compcar difference vc-annotate-color-map) |
| 3311 | (cons nil vc-annotate-very-old-color))) | 3311 | (cons nil vc-annotate-very-old-color))) |
| 3312 | ;; substring from index 1 to remove any leading `#' in the name | 3312 | ;; substring from index 1 to remove any leading `#' in the name |
| 3313 | (face-name (concat "vc-annotate-face-" | 3313 | (face-name (concat "vc-annotate-face-" |
| 3314 | (if (string-equal | 3314 | (if (string-equal |
| 3315 | (substring (cdr color) 0 1) "#") | 3315 | (substring (cdr color) 0 1) "#") |
| 3316 | (substring (cdr color) 1) | 3316 | (substring (cdr color) 1) |
| 3317 | (cdr color)))) | 3317 | (cdr color)))) |