added support for // and (* ... *) comments in Pascal

git-svn-id: https://geany.svn.sourceforge.net/svnroot/geany/trunk@234 ea778897-0a13-0410-b9d1-a72fbfd435f5

src/highlighting.c

@@ -348,6 +348,8 @@ static void styleset_pascal_init(void)
 	styleset_get_hex(config, "styling", "operator", "0x101030", "0xffffff", "false", types[GEANY_FILETYPES_PASCAL]->styling[7]);
 	styleset_get_hex(config, "styling", "identifier", "0x100000", "0xffffff", "false", types[GEANY_FILETYPES_PASCAL]->styling[8]);
 	styleset_get_hex(config, "styling", "regex", "0x13631B", "0xffffff", "false", types[GEANY_FILETYPES_PASCAL]->styling[9]);
+	styleset_get_hex(config, "styling", "commentline", "0x0000ff", "0xffffff", "false", types[GEANY_FILETYPES_PASCAL]->styling[10]);
+	styleset_get_hex(config, "styling", "commentdoc", "0x0000ff", "0xffffff", "false", types[GEANY_FILETYPES_PASCAL]->styling[11]);
 
 	types[GEANY_FILETYPES_PASCAL]->keywords = g_new(gchar*, 2);
 	types[GEANY_FILETYPES_PASCAL]->keywords[0] = styleset_get_string(config, "keywords", "primary");
@@ -384,6 +386,8 @@ void styleset_pascal(ScintillaObject *sci)
 	styleset_set_style(sci, SCE_C_OPERATOR, GEANY_FILETYPES_PASCAL, 7);
 	styleset_set_style(sci, SCE_C_IDENTIFIER, GEANY_FILETYPES_PASCAL, 8);
 	styleset_set_style(sci, SCE_C_REGEX, GEANY_FILETYPES_PASCAL, 9);
+	styleset_set_style(sci, SCE_C_COMMENTLINE, GEANY_FILETYPES_PASCAL, 10);
+	styleset_set_style(sci, SCE_C_COMMENTDOC, GEANY_FILETYPES_PASCAL, 11);
 
 	SSM(sci, SCI_SETWHITESPACEFORE, 1, 0xc0c0c0);