nautilus-04-execute-shellscript.diff revision 9802
--- /usr/src/redhat/BUILD/nautilus-2.10.1/libnautilus-private/nautilus-file.c 2005-06-14 12:38:27.842030744 +0530
+++ nautilus-2.10.1/libnautilus-private/nautilus-file.c 2005-06-14 12:34:00.415720000 +0530
@@ -5250,10 +5250,31 @@ nautilus_file_get_file_info_result (Naut
gboolean
nautilus_file_contains_text (NautilusFile *file)
{
+ const gchar *script_mime_types[]= {
+ "application/x-perl",
+ "application/x-python",
+ "application/x-csh",
+ "application/x-ruby",
+ NULL
+ };
+ const gchar **it;
+
if (file == NULL) {
return FALSE;
}
+ if (file->details->info == NULL || file->details->info->mime_type == NULL) {
+ return FALSE;
+ }
+
+ it = script_mime_types;
+ while (*it) {
+ if (! strcmp (file->details->info->mime_type, *it))
+ return TRUE;
+ it ++;
+ }
+
/* All text files inherit from text/plain */
return nautilus_file_is_mime_type (file, "text/plain");
}