emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Faces for Mode Line and Mode Line Inactive


From: John Paul Wallington
Subject: Re: Faces for Mode Line and Mode Line Inactive
Date: Sun, 05 Dec 2004 22:45:34 +0000

> I get a bit frustrated when I look at the face customization pages for Mode
> Line and Mode Line Inactive. Mode Line Inactive inherits from Mode Line and
> it sets no attributes on its own as far as I can see. Still it looks
> different (lighter on my display).
> 
> There seems to be a piece missing, or is it supposed to be this way?

I confirm that for me M-x customize-face mode-line-inactive says that
the face just inherits from mode-line despite it having a different
appearance.

I'm confused where the problem is, but don't have time to look at this
properly.  However, I noticed that M-x customize-face
modeline-inactive (its alias) does show the differing specs.

Also, it appears that this patch (moving the default case to be the
last case) causes M-x customize-face mode-line-inactive to show the
differing specs too:

Index: faces.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/faces.el,v
retrieving revision 1.293
diff -u -r1.293 faces.el
--- faces.el    2 Dec 2004 10:56:05 -0000       1.293
+++ faces.el    5 Dec 2004 22:21:30 -0000
@@ -1786,16 +1786,16 @@
   :group 'basic-faces)
 
 (defface mode-line-inactive
-  '((t
-     :inherit mode-line)
-    (((type x w32 mac) (background light) (class color))
+  '((((type x w32 mac) (background light) (class color))
      :weight light
      :box (:line-width -1 :color "grey75" :style nil)
      :foreground "grey20" :background "grey90")
     (((type x w32 mac) (background dark) (class color))
      :weight light
      :box (:line-width -1 :color "grey40" :style nil)
-     :foreground "grey80" :background "grey30"))
+     :foreground "grey80" :background "grey30")
+    (t
+     :inherit mode-line))
   "Basic mode line face for non-selected windows."
   :version "21.4"
   :group 'modeline




reply via email to

[Prev in Thread] Current Thread [Next in Thread]