Mercurial > emacs

comparison lisp/faces.el @ 90268:d88caeac70d7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-2 Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (base, patch 1-3) - tag of miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-704 - Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0 (patch 700-704) - Update from CVS - Merge from gnus--rel--5.10 - Update from CVS: lisp/cus-edit.el (customize-rogue): Minor doc fix. * miles@gnu.org--gnu-2005/gnus--rel--5.10 (patch 185-186) - Merge from emacs--cvs-trunk--0 - Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 19 Jan 2006 07:11:42 +0000
parents 7beb78bc1f8e 7943b5aaa49d
children 5b7d410e31f9
comparison
equal deleted inserted replaced
90267:e5855ea89245 90268:d88caeac70d7
1931 :background "green" :foreground "black") 1931 :background "green" :foreground "black")
1932 (t :inverse-video t)) 1932 (t :inverse-video t))
1933 "Basic face for highlighting." 1933 "Basic face for highlighting."
1934 :group 'basic-faces) 1934 :group 'basic-faces)
1935 1935
1936 (defface mode-line-highlight
1937 '((((class color) (min-colors 88))
1938 :box (:line-width 2 :color "grey40" :style released-button))
1939 (t
1940 :inherit highlight))
1941 "Basic mode line face for highlighting."
1942 :version "22.1"
1943 :group 'modeline
1944 :group 'basic-faces)
1945
1946 (defface region 1936 (defface region
1947 '((((class color) (min-colors 88) (background dark)) 1937 '((((class color) (min-colors 88) (background dark))
1948 :background "blue3") 1938 :background "blue3")
1949 (((class color) (min-colors 88) (background light)) 1939 (((class color) (min-colors 88) (background light))
1950 :background "lightgoldenrod2") 1940 :background "lightgoldenrod2")
2005 (t :inverse-video t)) 1995 (t :inverse-video t))
2006 "Face for displaying nobreak space." 1996 "Face for displaying nobreak space."
2007 :group 'basic-faces 1997 :group 'basic-faces
2008 :version "22.1") 1998 :version "22.1")
2009 1999
2000 (defgroup mode-line-faces nil
2001 "Faces used in the mode line."
2002 :group 'modeline
2003 :group 'faces
2004 :version "22.1")
2005
2010 (defface mode-line 2006 (defface mode-line
2011 '((((class color) (min-colors 88)) 2007 '((((class color) (min-colors 88))
2012 :box (:line-width -1 :style released-button) 2008 :box (:line-width -1 :style released-button)
2013 :background "grey75" :foreground "black") 2009 :background "grey75" :foreground "black")
2014 (t 2010 (t
2015 :inverse-video t)) 2011 :inverse-video t))
2016 "Basic mode line face for selected window." 2012 "Basic mode line face for selected window."
2017 :version "21.1" 2013 :version "21.1"
2018 :group 'modeline 2014 :group 'mode-line-faces
2019 :group 'basic-faces) 2015 :group 'basic-faces)
2020 2016
2021 (defface mode-line-inactive 2017 (defface mode-line-inactive
2022 '((default 2018 '((default
2023 :inherit mode-line) 2019 :inherit mode-line)
2029 :weight light 2025 :weight light
2030 :box (:line-width -1 :color "grey40" :style nil) 2026 :box (:line-width -1 :color "grey40" :style nil)
2031 :foreground "grey80" :background "grey30")) 2027 :foreground "grey80" :background "grey30"))
2032 "Basic mode line face for non-selected windows." 2028 "Basic mode line face for non-selected windows."
2033 :version "22.1" 2029 :version "22.1"
2034 :group 'modeline 2030 :group 'mode-line-faces
2031 :group 'basic-faces)
2032
2033 (defface mode-line-highlight
2034 '((((class color) (min-colors 88))
2035 :box (:line-width 2 :color "grey40" :style released-button))
2036 (t
2037 :inherit highlight))
2038 "Basic mode line face for highlighting."
2039 :version "22.1"
2040 :group 'mode-line-faces
2041 :group 'basic-faces)
2042
2043 (defface mode-line-buffer-id
2044 '((t (:weight bold)))
2045 "Face used for buffer identification parts of the mode line."
2046 :version "22.1"
2047 :group 'mode-line-faces
2035 :group 'basic-faces) 2048 :group 'basic-faces)
2036 2049
2037 ;; Make `modeline' an alias for `mode-line', for compatibility. 2050 ;; Make `modeline' an alias for `mode-line', for compatibility.
2038 (put 'modeline 'face-alias 'mode-line) 2051 (put 'modeline 'face-alias 'mode-line)
2039 (put 'modeline-inactive 'face-alias 'mode-line-inactive) 2052 (put 'modeline-inactive 'face-alias 'mode-line-inactive)
2040 (put 'modeline-highlight 'face-alias 'mode-line-highlight) 2053 (put 'modeline-highlight 'face-alias 'mode-line-highlight)
2054 (put 'modeline-buffer-id 'face-alias 'mode-line-buffer-id)
2041 2055
2042 (defface header-line 2056 (defface header-line
2043 '((default 2057 '((default
2044 :inherit mode-line) 2058 :inherit mode-line)
2045 (((type tty)) 2059 (((type tty))
2076 2090
2077 (defface vertical-border 2091 (defface vertical-border
2078 '((((type tty)) :inherit mode-line-inactive)) 2092 '((((type tty)) :inherit mode-line-inactive))
2079 "Face used for vertical window dividers on ttys." 2093 "Face used for vertical window dividers on ttys."
2080 :version "22.1" 2094 :version "22.1"
2081 :group 'modeline
2082 :group 'basic-faces) 2095 :group 'basic-faces)
2083 2096
2084 (defface minibuffer-prompt 2097 (defface minibuffer-prompt
2085 '((((background dark)) :foreground "cyan") 2098 '((((background dark)) :foreground "cyan")
2086 ;; Don't use blue because many users of the MS-DOS port customize 2099 ;; Don't use blue because many users of the MS-DOS port customize