]> code.delx.au - gnu-emacs/commitdiff
Revert "Use colors in the VC mode lines"
authorJohn Wiegley <johnw@newartisans.com>
Sun, 6 Mar 2016 20:51:44 +0000 (12:51 -0800)
committerJohn Wiegley <johnw@newartisans.com>
Sun, 6 Mar 2016 20:51:44 +0000 (12:51 -0800)
This reverts commit 2621c293d82c15c00d9e73a8db75d70da7d0a23b.

lisp/vc/vc-hooks.el

index 6488e53ef026ce540d7d01965a393a2c9182f709..0c1718e94cbe65b186cd95bfb2aecdcd02f280c1 100644 (file)
   :group 'vc-faces)
 
 (defface vc-needs-update-state
-  '((default :inherit vc-state-base-face)
-    (((class color)) :foreground "blue" :weight bold))
+  '((default :inherit vc-state-base-face))
   "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)
-    (((class color)) :foreground "red"))
+  '((default :inherit vc-state-base-face))
   "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)
-    (((class color)) :foreground "ForestGreen"))
+  '((default :inherit vc-state-base-face))
   "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)
-    (((class color)) :foreground "red" :weight bold))
+  '((default :inherit vc-state-base-face))
   "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)
-    (((class color)) :foreground "red"))
+  '((default :inherit vc-state-base-face))
   "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)
-    (((class color)) :foreground "red"))
+  '((default :inherit vc-state-base-face))
   "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)
-    (((class color)) :foreground "ForestGreen"))
-  "Face for VC modeline state when the file is edited."
+  '((default :inherit vc-state-base-face))
+  "Face for VC modeline state when the file is up to date."
   :version "25.1"
   :group 'vc-faces)