From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 1 Mar 2016 03:25:27 +0000 (+1100)
Subject: Use colors in the VC mode lines
X-Git-Tag: emacs-26.0.90~2417
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2621c293d82c15c00d9e73a8db75d70da7d0a23b;p=emacs.git

Use colors in the VC mode lines

* lisp/vc/vc-hooks.el: Make the mode line faces default to
using colors to more clearly tell the user what the status is.
---

diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el
index 0c1718e94cb..6488e53ef02 100644
--- a/lisp/vc/vc-hooks.el
+++ b/lisp/vc/vc-hooks.el
@@ -54,44 +54,51 @@
   :group 'vc-faces)
 
 (defface vc-needs-update-state
-  '((default :inherit vc-state-base-face))
+  '((default :inherit vc-state-base-face)
+    (((class color)) :foreground "blue" :weight bold))
   "Face for VC modeline state when the file needs update."
   :version "25.1"
   :group 'vc-faces)
 
 (defface vc-locked-state
-  '((default :inherit vc-state-base-face))
+  '((default :inherit vc-state-base-face)
+    (((class color)) :foreground "red"))
   "Face for VC modeline state when the file locked."
   :version "25.1"
   :group 'vc-faces)
 
 (defface vc-locally-added-state
-  '((default :inherit vc-state-base-face))
+  '((default :inherit vc-state-base-face)
+    (((class color)) :foreground "ForestGreen"))
   "Face for VC modeline state when the file is locally added."
   :version "25.1"
   :group 'vc-faces)
 
 (defface vc-conflict-state
-  '((default :inherit vc-state-base-face))
+  '((default :inherit vc-state-base-face)
+    (((class color)) :foreground "red" :weight bold))
   "Face for VC modeline state when the file contains merge conflicts."
   :version "25.1"
   :group 'vc-faces)
 
 (defface vc-removed-state
-  '((default :inherit vc-state-base-face))
+  '((default :inherit vc-state-base-face)
+    (((class color)) :foreground "red"))
   "Face for VC modeline state when the file was removed from the VC system."
   :version "25.1"
   :group 'vc-faces)
 
 (defface vc-missing-state
-  '((default :inherit vc-state-base-face))
+  '((default :inherit vc-state-base-face)
+    (((class color)) :foreground "red"))
   "Face for VC modeline state when the file is missing from the file system."
   :version "25.1"
   :group 'vc-faces)
 
 (defface vc-edited-state
-  '((default :inherit vc-state-base-face))
-  "Face for VC modeline state when the file is up to date."
+  '((default :inherit vc-state-base-face)
+    (((class color)) :foreground "ForestGreen"))
+  "Face for VC modeline state when the file is edited."
   :version "25.1"
   :group 'vc-faces)