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))))))) |
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 |
|
|
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 |
|
|
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 |
|
|