Mercurial > emacs

changeset 62656:de74a397ff54

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Install a change I forgot to install at the last committing. * faces.el (mode-line-highlight): New face.
author Masatake YAMATO <jet@gyve.org>
date Mon, 23 May 2005 18:30:20 +0000
parents d60452f30c92
children fa9ab301872c
files lisp/faces.el
diffstat 1 files changed, 13 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Mon May 23 12:56:23 2005 +0000
+++ b/lisp/faces.el	Mon May 23 18:30:20 2005 +0000
@@ -1843,9 +1843,22 @@
   :group 'modeline
   :group 'basic-faces)
 
+(defface mode-line-highlight
+  '((((class color) (min-colors 88) (background light))
+      :background "RoyalBlue4" :foreground "white")
+     (((class color) (min-colors 88) (background dark))
+      :background "light sky blue" :foreground "black")
+     (t
+     :inverse-video t))
+  "Basic mode line face for highlighting."
+  :version "22.1"
+  :group 'modeline
+  :group 'basic-faces)
+
 ;; Make `modeline' an alias for `mode-line', for compatibility.
 (put 'modeline 'face-alias 'mode-line)
 (put 'modeline-inactive 'face-alias 'mode-line-inactive)
+(put 'modeline-higilight 'face-alias 'mode-line-highlight)
 
 (defface header-line
   '((default