Subject: bug#5910: vc-hooks enhancement request: highlight checkouts

From: Lars Ingebrigtsen <[email-masked]>
Date: Sat, 19 Sep 2020 23:38:09 +0200

Albert Ting <[email-masked]> writes:

> In any case, I'd like to quest the vc auto-highlight any files that have been
> modified/checkout in the vc-mode-line.  XEmacs supports this and below is a patch
> to make it work in Emacs.
>
> Thanks,
> Albert
>
> --- vc-hooks.el~    2010-04-08 12:33:24.016321000 -0700
> +++ vc-hooks.el    2010-03-30 08:06:06.570204000 -0700
> @@ -772,7 +772,10 @@
>    (if (not backend)
>        (setq vc-mode nil)
>      (let* ((ml-string (vc-call-backend backend 'mode-line-string file))
> -       (ml-echo (get-text-property 0 'help-echo ml-string)))
> +       (ml-echo (get-text-property 0 'help-echo ml-string))
> +       (test-str "^\\(RCS\\|CVS\\|SVN\\|SCCS\\|Arch\\|MCVS\\|GIT\\):")
> +       (locked (string-match test-str ml-string))

This patch unfortunately got no attention when it was posted ten years
ago.

I see that this has been fixed over the years in a different way --
vc-up-to-date-state (etc) is added by the vc-*-mode-line-string backend
functions themselves, so I'm closing this bug report.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no