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." (let* ((color (or (vc-annotate-compcar difference vc-annotate-color-map) (cons nil vc-annotate-very-old-color))) ;; substring from index 1 to remove any leading `#' in the name - (face-name (concat "vc-annotate-face-" - (if (string-equal + (face-name (concat "vc-annotate-face-" + (if (string-equal (substring (cdr color) 0 1) "#") (substring (cdr color) 1) (cdr color))))