Mercurial > emacs

comparison lisp/faces.el @ 43247:4c5a2e2ddf43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mode-line-inactive): Add dark-background variant.
author Miles Bader <miles@gnu.org>
date Tue, 12 Feb 2002 02:59:05 +0000
parents 1b0f33edf842
children 4f1f166427e5
comparison
equal deleted inserted replaced
43246:c187056ac630 43247:4c5a2e2ddf43
1 ;;; faces.el --- Lisp faces 1 ;;; faces.el --- Lisp faces
2 2
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
1712 :version "21.1" 1712 :version "21.1"
1713 :group 'modeline 1713 :group 'modeline
1714 :group 'basic-faces) 1714 :group 'basic-faces)
1715 1715
1716 (defface mode-line-inactive 1716 (defface mode-line-inactive
1717 '((((type x w32 mac) (class color)) 1717 '((((type x w32 mac) (background light) (class color))
1718 :inherit mode-line 1718 :inherit mode-line
1719 :weight light 1719 :weight light
1720 :box (:line-width -1 :color "grey75" :style nil) 1720 :box (:line-width -1 :color "grey75" :style nil)
1721 :foreground "grey20" :background "grey90") 1721 :foreground "grey20" :background "grey90")
1722 (((type x w32 mac) (background dark) (class color))
1723 :inherit mode-line
1724 :weight light
1725 :box (:line-width -1 :color "grey40" :style nil)
1726 :foreground "grey80" :background "grey30")
1722 (t 1727 (t
1723 :inverse-video t)) 1728 :inverse-video t))
1724 "Basic mode line face for non-selected windows." 1729 "Basic mode line face for non-selected windows."
1725 :version "21.2" 1730 :version "21.2"
1726 :group 'modeline 1731 :group 'modeline