Added pattern *.agi for filetype Perl (closes #1567355).

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

ChangeLog

+2006-09-29  Enrico Tröger  <enrico.troeger@uvena.de>
+
+ * src/filetypes.c, data/filetype_extensions.conf:
+   Added pattern *.agi for filetype Perl (closes #1567355).
+
+
 2006-09-27  Nick Treleaven  <nick.treleaven@btinternet.com>
 
  * src/vte.c: Change VTE word selection chars to include paths.

data/filetype_extensions.conf

@@ -11,7 +11,7 @@ ASM=*.asm;
 Fortran=*.f;*.f77;*.f90;*.f95;*.for;*.ftn;
 Ferite=*.fe;
 CAML=*.ml;*.mli;
-Perl=*.pl;*.perl;*.pm;
+Perl=*.pl;*.perl;*.pm;*.agi;
 PHP=*.php;*.php3;*.php4;*.php5;*.phtml;
 Python=*.py;*.pyw;
 Ruby=*.rb;*.rhtml;

src/filetypes.c

@@ -298,11 +298,12 @@ void filetypes_init_types(void)
 	filetypes[GEANY_FILETYPES_PERL]->has_tags = TRUE;
 	filetypes[GEANY_FILETYPES_PERL]->title = g_strdup(_("Perl source file"));
 	filetypes[GEANY_FILETYPES_PERL]->extension = g_strdup("perl");
-	filetypes[GEANY_FILETYPES_PERL]->pattern = g_new0(gchar*, 4);
+	filetypes[GEANY_FILETYPES_PERL]->pattern = g_new0(gchar*, 5);
 	filetypes[GEANY_FILETYPES_PERL]->pattern[0] = g_strdup("*.pl");
 	filetypes[GEANY_FILETYPES_PERL]->pattern[1] = g_strdup("*.perl");
 	filetypes[GEANY_FILETYPES_PERL]->pattern[2] = g_strdup("*.pm");
-	filetypes[GEANY_FILETYPES_PERL]->pattern[3] = NULL;
+	filetypes[GEANY_FILETYPES_PERL]->pattern[3] = g_strdup("*.agi");
+	filetypes[GEANY_FILETYPES_PERL]->pattern[4] = NULL;
 	filetypes[GEANY_FILETYPES_PERL]->comment_open = g_strdup("#");
 	filetypes[GEANY_FILETYPES_PERL]->comment_close = NULL;
 	filetypes[GEANY_FILETYPES_PERL]->style_func_ptr = styleset_perl;