(find_entries): If filename ends in .f or .for, don't try anything but Fortran.

1 files changed, 10 insertions, 4 deletions

diff --git a/lib-src/etags.c b/lib-src/etags.c
index 2bb992c1a99..67b76826727 100644
--- a/lib-src/etags.c
+++ b/lib-src/etags.c
@@ -1034,11 +1034,17 @@ find_entries (file)
       PAS_funcs (inf);
       goto close_and_return;
     }
+  /* If .f or .for, assume it is fortran or nothing.  */
+  if (cp && (streq (cp + 1, "f") || streq (cp + 1, "for")))
+    {
+      PF_funcs (inf);
+      goto close_and_return;
+    }
   /* if not a .c or .h or .y file, try fortran */
-  else if (cp && ((cp[1] != 'c'
-                   && cp[1] != 'h'
-                   && cp[1] != 'y')
-                  || (cp[1] != 0 && cp[2] != 0)))
+  if (cp && ((cp[1] != 'c'
+              && cp[1] != 'h'
+              && cp[1] != 'y')
+             || (cp[1] != 0 && cp[2] != 0)))
     {
       if (PF_funcs (inf) != 0)
         goto close_and_return;