Small change to getopt stuff
[enscript.git] / states / hl / style_emacs.st
1
2 state style_emacs
3 {
4   BEGIN {
5     call(default_faces);
6
7     if (color)
8       {
9         /* Set colors. */
10         face_bold[fg_color] =           language_color("black");
11         face_italic[fg_color] =         language_color("black");
12         face_bold_italic[fg_color] =    language_color("black");
13         face_comment[fg_color] =        language_color("firebrick");
14         face_function_name[fg_color] =  language_color("blue");
15         face_variable_name[fg_color] =  language_color("dark goldenrod");
16         face_keyword[fg_color] =        language_color("purple");
17         face_reference[fg_color] =      language_color("cadet blue");
18         face_string[fg_color] =         language_color("rosy brown");
19         face_builtin[fg_color] =        language_color("orchid");
20         face_type[fg_color] =           language_color("forest green");
21         face_highlight[bg_color] =      language_color("DarkSeaGreen2");
22       }
23     else
24       {
25         face_highlight[bg_color] =      language_color("LightGrey");
26       }
27
28     /* And that's it. */
29     return;
30   }
31 }
32
33 \f
34 /*
35 Local variables:
36 mode: c
37 End:
38 */