Mercurial > emacs

comparison lisp/faces.el @ 89909:68c22ea6027c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Sync to HEAD
author Kenichi Handa <handa@m17n.org>
date Fri, 16 Apr 2004 12:51:06 +0000
parents 5af19e9c7f53
children 4c90ffeb71c5
comparison
equal deleted inserted replaced
89908:ee1402f7b568 89909:68c22ea6027c
1 ;;; faces.el --- Lisp faces 1 ;;; faces.el --- Lisp faces
2 2
3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, 2002 3 ;; Copyright (C) 1992,1993,1994,1995,1996,1998,1999,2000,2001,2002,2004
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: internal 7 ;; Keywords: internal
8 8
1069 (defun read-face-font (face &optional frame) 1069 (defun read-face-font (face &optional frame)
1070 "Read the name of a font for FACE on FRAME. 1070 "Read the name of a font for FACE on FRAME.
1071 If optional argument FRAME Is nil or omitted, use the selected frame." 1071 If optional argument FRAME Is nil or omitted, use the selected frame."
1072 (let ((completion-ignore-case t)) 1072 (let ((completion-ignore-case t))
1073 (completing-read (format "Set font attributes of face `%s' from font: " face) 1073 (completing-read (format "Set font attributes of face `%s' from font: " face)
1074 (mapcar 'list (append (fontset-list) 1074 (append (fontset-list) (x-list-fonts "*" nil frame)))))
1075 (x-list-fonts "*" nil frame))))))
1076 1075
1077 1076
1078 (defun read-all-face-attributes (face &optional frame) 1077 (defun read-all-face-attributes (face &optional frame)
1079 "Interactively read all attributes for FACE. 1078 "Interactively read all attributes for FACE.
1080 If optional argument FRAME Is nil or omitted, use the selected frame. 1079 If optional argument FRAME Is nil or omitted, use the selected frame.
1314 (and (memq 'lucid options) 1313 (and (memq 'lucid options)
1315 (featurep 'x-toolkit) 1314 (featurep 'x-toolkit)
1316 (not (featurep 'motif))) 1315 (not (featurep 'motif)))
1317 (and (memq 'x-toolkit options) 1316 (and (memq 'x-toolkit options)
1318 (featurep 'x-toolkit)))) 1317 (featurep 'x-toolkit))))
1318 ((eq req 'min-colors)
1319 (>= (display-color-cells frame) (car options)))
1319 ((eq req 'class) 1320 ((eq req 'class)
1320 (memq (frame-parameter frame 'display-type) options)) 1321 (memq (frame-parameter frame 'display-type) options))
1321 ((eq req 'background) 1322 ((eq req 'background)
1322 (memq (frame-parameter frame 'background-mode) 1323 (memq (frame-parameter frame 'background-mode)
1323 options)) 1324 options))
1831 ;; Make `modeline' an alias for `mode-line', for compatibility. 1832 ;; Make `modeline' an alias for `mode-line', for compatibility.
1832 (put 'modeline 'face-alias 'mode-line) 1833 (put 'modeline 'face-alias 'mode-line)
1833 (put 'modeline-inactive 'face-alias 'mode-line-inactive) 1834 (put 'modeline-inactive 'face-alias 'mode-line-inactive)
1834 1835
1835 (defface header-line 1836 (defface header-line
1836 '((((type tty)) 1837 '((t
1838 :inherit mode-line)
1839 (((type tty))
1837 ;; This used to be `:inverse-video t', but that doesn't look very 1840 ;; This used to be `:inverse-video t', but that doesn't look very
1838 ;; good when combined with inverse-video mode-lines and multiple 1841 ;; good when combined with inverse-video mode-lines and multiple
1839 ;; windows. Underlining looks better, and is more consistent with 1842 ;; windows. Underlining looks better, and is more consistent with
1840 ;; the window-system face variants, which deemphasize the 1843 ;; the window-system face variants, which deemphasize the
1841 ;; header-line in relation to the mode-line face. If a terminal 1844 ;; header-line in relation to the mode-line face. If a terminal
1842 ;; can't underline, then the header-line will end up without any 1845 ;; can't underline, then the header-line will end up without any
1843 ;; highlighting; this may be too confusing in general, although it 1846 ;; highlighting; this may be too confusing in general, although it
1844 ;; happens to look good with the only current use of header-lines, 1847 ;; happens to look good with the only current use of header-lines,
1845 ;; the info browser. XXX 1848 ;; the info browser. XXX
1849 :inverse-video nil ;Override the value inherited from mode-line.
1846 :underline t) 1850 :underline t)
1847 (((class color grayscale) (background light)) 1851 (((class color grayscale) (background light))
1848 :background "grey90" :foreground "grey20" 1852 :background "grey90" :foreground "grey20"
1849 :box nil 1853 :box nil)
1850 :inherit mode-line)
1851 (((class color grayscale) (background dark)) 1854 (((class color grayscale) (background dark))
1852 :background "grey20" :foreground "grey90" 1855 :background "grey20" :foreground "grey90"
1853 :box nil 1856 :box nil)
1854 :inherit mode-line)
1855 (((class mono) (background light)) 1857 (((class mono) (background light))
1856 :background "white" :foreground "black" 1858 :background "white" :foreground "black"
1857 :inverse-video nil 1859 :inverse-video nil
1858 :box nil 1860 :box nil
1859 :underline t 1861 :underline t)
1860 :inherit mode-line)
1861 (((class mono) (background dark)) 1862 (((class mono) (background dark))
1862 :background "black" :foreground "white" 1863 :background "black" :foreground "white"
1863 :inverse-video nil 1864 :inverse-video nil
1864 :box nil 1865 :box nil
1865 :underline t 1866 :underline t))
1866 :inherit mode-line))
1867 "Basic header-line face." 1867 "Basic header-line face."
1868 :version "21.1" 1868 :version "21.1"
1869 :group 'basic-faces) 1869 :group 'basic-faces)
1870 1870
1871 1871
1872 (defface tool-bar 1872 (defface tool-bar
1873 '((((type x w32 mac) (class color)) 1873 '((t
1874 :box (:line-width 1 :style released-button) 1874 :box (:line-width 1 :style released-button)
1875 :background "grey75" :foreground "black") 1875 :foreground "black")
1876 (((type x w32 mac) (class color))
1877 :background "grey75")
1876 (((type x) (class mono)) 1878 (((type x) (class mono))
1877 :box (:line-width 1 :style released-button) 1879 :background "grey"))
1878 :background "grey" :foreground "black")
1879 (t
1880 ()))
1881 "Basic tool-bar face." 1880 "Basic tool-bar face."
1882 :version "21.1" 1881 :version "21.1"
1883 :group 'basic-faces) 1882 :group 'basic-faces)
1884 1883
1885 1884
1892 1891
1893 (setq minibuffer-prompt-properties 1892 (setq minibuffer-prompt-properties
1894 (append minibuffer-prompt-properties (list 'face 'minibuffer-prompt))) 1893 (append minibuffer-prompt-properties (list 'face 'minibuffer-prompt)))
1895 1894
1896 (defface region 1895 (defface region
1897 '((((type tty) (class color)) 1896 '((((class color) (min-colors 88) (background dark))
1897 :background "blue3")
1898 (((class color) (min-colors 88) (background light))
1899 :background "lightgoldenrod2")
1900 (((class color) (min-colors 16) (background dark))
1901 :background "blue3")
1902 (((class color) (min-colors 16) (background light))
1903 :background "lightgoldenrod2")
1904 (((class color) (min-colors 8))
1898 :background "blue" :foreground "white") 1905 :background "blue" :foreground "white")
1899 (((type tty) (class mono)) 1906 (((type tty) (class mono))
1900 :inverse-video t) 1907 :inverse-video t)
1901 (((class color) (background dark))
1902 :background "blue3")
1903 (((class color) (background light))
1904 :background "lightgoldenrod2")
1905 (t :background "gray")) 1908 (t :background "gray"))
1906 "Basic face for highlighting the region." 1909 "Basic face for highlighting the region."
1907 :version "21.1" 1910 :version "21.1"
1908 :group 'basic-faces) 1911 :group 'basic-faces)
1909 1912
1990 "Basic underlined face." 1993 "Basic underlined face."
1991 :group 'basic-faces) 1994 :group 'basic-faces)
1992 1995
1993 1996
1994 (defface highlight 1997 (defface highlight
1995 '((((type tty) (class color)) 1998 '((((class color) (min-colors 88) (background light))
1999 :background "darkseagreen2")
2000 (((class color) (min-colors 88) (background dark))
2001 :background "darkolivegreen")
2002 (((class color) (min-colors 16) (background light))
2003 :background "darkseagreen2")
2004 (((class color) (min-colors 16) (background dark))
2005 :background "darkolivegreen")
2006 (((class color) (min-colors 8))
1996 :background "green" :foreground "black") 2007 :background "green" :foreground "black")
1997 (((class color) (background light))
1998 :background "darkseagreen2")
1999 (((class color) (background dark))
2000 :background "darkolivegreen")
2001 (t :inverse-video t)) 2008 (t :inverse-video t))
2002 "Basic face for highlighting." 2009 "Basic face for highlighting."
2003 :group 'basic-faces) 2010 :group 'basic-faces)
2004 2011
2005 2012
2006 (defface secondary-selection 2013 (defface secondary-selection
2007 '((((type tty) (class color)) 2014 '((((class color) (min-colors 88) (background light))
2015 :background "yellow")
2016 (((class color) (min-colors 88) (background dark))
2017 :background "SkyBlue4")
2018 (((class color) (min-colors 16) (background light))
2019 :background "yellow")
2020 (((class color) (min-colors 16) (background dark))
2021 :background "SkyBlue4")
2022 (((class color) (min-colors 8))
2008 :background "cyan" :foreground "black") 2023 :background "cyan" :foreground "black")
2009 (((class color) (background light))
2010 :background "yellow")
2011 (((class color) (background dark))
2012 :background "SkyBlue4")
2013 (t :inverse-video t)) 2024 (t :inverse-video t))
2014 "Basic face for displaying the secondary selection." 2025 "Basic face for displaying the secondary selection."
2015 :group 'basic-faces) 2026 :group 'basic-faces)
2016 2027
2017 2028
2214 (internal-frob-font-slant font "i"))) 2225 (internal-frob-font-slant font "i")))
2215 (make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic "21.1") 2226 (make-obsolete 'x-make-font-bold-italic 'make-face-bold-italic "21.1")
2216 2227
2217 (provide 'faces) 2228 (provide 'faces)
2218 2229
2230 ;;; arch-tag: 19a4759f-2963-445f-b004-425b9aadd7d6
2219 ;;; faces.el ends here 2231 ;;; faces.el ends here