/[emacs]/emacs/lisp/font-lock.el
ViewVC logotype

Diff of /emacs/lisp/font-lock.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.187 by rms, Tue Dec 11 06:05:12 2001 UTC revision 1.188 by rms, Mon Dec 31 20:16:46 2001 UTC
# Line 1788  Sets various variables using `font-lock- Line 1788  Sets various variables using `font-lock-
1788              (when background              (when background
1789                (setq face-spec (cons ':background (cons background face-spec))))                (setq face-spec (cons ':background (cons background face-spec))))
1790              (when bold-p              (when bold-p
1791                (setq face-spec (append '(:bold t) face-spec)))                (setq face-spec (append '(:weight bold) face-spec)))
1792              (when italic-p              (when italic-p
1793                (setq face-spec (append '(:italic t) face-spec)))                (setq face-spec (append '(:slant italic) face-spec)))
1794              (when underline-p              (when underline-p
1795                (setq face-spec (append '(:underline t) face-spec)))                (setq face-spec (append '(:underline t) face-spec)))
1796              (custom-declare-face face (list (list t face-spec)) nil)))))))              (custom-declare-face face (list (list t face-spec)) nil)))))))
# Line 1801  Sets various variables using `font-lock- Line 1801  Sets various variables using `font-lock-
1801    '((((type tty pc) (class color) (background light)) (:foreground "red"))    '((((type tty pc) (class color) (background light)) (:foreground "red"))
1802      (((type tty pc) (class color) (background dark)) (:foreground "red1"))      (((type tty pc) (class color) (background dark)) (:foreground "red1"))
1803      (((class grayscale) (background light))      (((class grayscale) (background light))
1804       (:foreground "DimGray" :bold t :italic t))       (:foreground "DimGray" :weight bold :slant italic))
1805      (((class grayscale) (background dark))      (((class grayscale) (background dark))
1806       (:foreground "LightGray" :bold t :italic t))       (:foreground "LightGray" :weight bold :slant italic))
1807      (((class color) (background light)) (:foreground "Firebrick"))      (((class color) (background light)) (:foreground "Firebrick"))
1808      (((class color) (background dark)) (:foreground "chocolate1"))      (((class color) (background dark)) (:foreground "chocolate1"))
1809      (t (:bold t :italic t)))      (t (:weight bold :slant italic)))
1810    "Font Lock mode face used to highlight comments."    "Font Lock mode face used to highlight comments."
1811    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1812    
1813  (defface font-lock-string-face  (defface font-lock-string-face
1814    '((((type tty) (class color)) (:foreground "green"))    '((((type tty) (class color)) (:foreground "green"))
1815      (((class grayscale) (background light)) (:foreground "DimGray" :italic t))      (((class grayscale) (background light)) (:foreground "DimGray" :slant italic))
1816      (((class grayscale) (background dark)) (:foreground "LightGray" :italic t))      (((class grayscale) (background dark)) (:foreground "LightGray" :slant italic))
1817      (((class color) (background light)) (:foreground "RosyBrown"))      (((class color) (background light)) (:foreground "RosyBrown"))
1818      (((class color) (background dark)) (:foreground "LightSalmon"))      (((class color) (background dark)) (:foreground "LightSalmon"))
1819      (t (:italic t)))      (t (:slant italic)))
1820    "Font Lock mode face used to highlight strings."    "Font Lock mode face used to highlight strings."
1821    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1822    
# Line 1827  Sets various variables using `font-lock- Line 1827  Sets various variables using `font-lock-
1827    
1828  (defface font-lock-keyword-face  (defface font-lock-keyword-face
1829    '((((type tty) (class color)) (:foreground "cyan" :weight bold))    '((((type tty) (class color)) (:foreground "cyan" :weight bold))
1830      (((class grayscale) (background light)) (:foreground "LightGray" :bold t))      (((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
1831      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))      (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
1832      (((class color) (background light)) (:foreground "Purple"))      (((class color) (background light)) (:foreground "Purple"))
1833      (((class color) (background dark)) (:foreground "Cyan"))      (((class color) (background dark)) (:foreground "Cyan"))
1834      (t (:bold t)))      (t (:weight bold)))
1835    "Font Lock mode face used to highlight keywords."    "Font Lock mode face used to highlight keywords."
1836    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1837    
1838  (defface font-lock-builtin-face  (defface font-lock-builtin-face
1839    '((((type tty) (class color)) (:foreground "blue" :weight light))    '((((type tty) (class color)) (:foreground "blue" :weight light))
1840      (((class grayscale) (background light)) (:foreground "LightGray" :bold t))      (((class grayscale) (background light)) (:foreground "LightGray" :weight bold))
1841      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))      (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
1842      (((class color) (background light)) (:foreground "Orchid"))      (((class color) (background light)) (:foreground "Orchid"))
1843      (((class color) (background dark)) (:foreground "LightSteelBlue"))      (((class color) (background dark)) (:foreground "LightSteelBlue"))
1844      (t (:bold t)))      (t (:weight bold)))
1845    "Font Lock mode face used to highlight builtins."    "Font Lock mode face used to highlight builtins."
1846    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1847    
# Line 1849  Sets various variables using `font-lock- Line 1849  Sets various variables using `font-lock-
1849    '((((type tty) (class color)) (:foreground "blue" :weight bold))    '((((type tty) (class color)) (:foreground "blue" :weight bold))
1850      (((class color) (background light)) (:foreground "Blue"))      (((class color) (background light)) (:foreground "Blue"))
1851      (((class color) (background dark)) (:foreground "LightSkyBlue"))      (((class color) (background dark)) (:foreground "LightSkyBlue"))
1852      (t (:inverse-video t :bold t)))      (t (:inverse-video t :weight bold)))
1853    "Font Lock mode face used to highlight function names."    "Font Lock mode face used to highlight function names."
1854    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1855    
1856  (defface font-lock-variable-name-face  (defface font-lock-variable-name-face
1857    '((((type tty) (class color)) (:foreground "yellow" :weight light))    '((((type tty) (class color)) (:foreground "yellow" :weight light))
1858      (((class grayscale) (background light))      (((class grayscale) (background light))
1859       (:foreground "Gray90" :bold t :italic t))       (:foreground "Gray90" :weight bold :slant italic))
1860      (((class grayscale) (background dark))      (((class grayscale) (background dark))
1861       (:foreground "DimGray" :bold t :italic t))       (:foreground "DimGray" :weight bold :slant italic))
1862      (((class color) (background light)) (:foreground "DarkGoldenrod"))      (((class color) (background light)) (:foreground "DarkGoldenrod"))
1863      (((class color) (background dark)) (:foreground "LightGoldenrod"))      (((class color) (background dark)) (:foreground "LightGoldenrod"))
1864      (t (:bold t :italic t)))      (t (:weight bold :slant italic)))
1865    "Font Lock mode face used to highlight variable names."    "Font Lock mode face used to highlight variable names."
1866    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1867    
1868  (defface font-lock-type-face  (defface font-lock-type-face
1869    '((((type tty) (class color)) (:foreground "green"))    '((((type tty) (class color)) (:foreground "green"))
1870      (((class grayscale) (background light)) (:foreground "Gray90" :bold t))      (((class grayscale) (background light)) (:foreground "Gray90" :weight bold))
1871      (((class grayscale) (background dark)) (:foreground "DimGray" :bold t))      (((class grayscale) (background dark)) (:foreground "DimGray" :weight bold))
1872      (((class color) (background light)) (:foreground "ForestGreen"))      (((class color) (background light)) (:foreground "ForestGreen"))
1873      (((class color) (background dark)) (:foreground "PaleGreen"))      (((class color) (background dark)) (:foreground "PaleGreen"))
1874      (t (:bold t :underline t)))      (t (:weight bold :underline t)))
1875    "Font Lock mode face used to highlight type and classes."    "Font Lock mode face used to highlight type and classes."
1876    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1877    
1878  (defface font-lock-constant-face  (defface font-lock-constant-face
1879    '((((type tty) (class color)) (:foreground "magenta"))    '((((type tty) (class color)) (:foreground "magenta"))
1880      (((class grayscale) (background light))      (((class grayscale) (background light))
1881       (:foreground "LightGray" :bold t :underline t))       (:foreground "LightGray" :weight bold :underline t))
1882      (((class grayscale) (background dark))      (((class grayscale) (background dark))
1883       (:foreground "Gray50" :bold t :underline t))       (:foreground "Gray50" :weight bold :underline t))
1884      (((class color) (background light)) (:foreground "CadetBlue"))      (((class color) (background light)) (:foreground "CadetBlue"))
1885      (((class color) (background dark)) (:foreground "Aquamarine"))      (((class color) (background dark)) (:foreground "Aquamarine"))
1886      (t (:bold t :underline t)))      (t (:weight bold :underline t)))
1887    "Font Lock mode face used to highlight constants and labels."    "Font Lock mode face used to highlight constants and labels."
1888    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1889    
1890  (defface font-lock-warning-face  (defface font-lock-warning-face
1891    '((((type tty) (class color)) (:foreground "red"))    '((((type tty) (class color)) (:foreground "red"))
1892      (((class color) (background light)) (:foreground "Red" :bold t))      (((class color) (background light)) (:foreground "Red" :weight bold))
1893      (((class color) (background dark)) (:foreground "Pink" :bold t))      (((class color) (background dark)) (:foreground "Pink" :weight bold))
1894      (t (:inverse-video t :bold t)))      (t (:inverse-video t :weight bold)))
1895    "Font Lock mode face used to highlight warnings."    "Font Lock mode face used to highlight warnings."
1896    :group 'font-lock-highlighting-faces)    :group 'font-lock-highlighting-faces)
1897    

Legend:
Removed from v.1.187  
changed lines
  Added in v.1.188

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26