# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 727042162 0
# Node ID 00beac79bcc7fe6b6f7564a90ab15d5f3b4d36f4
# Parent  a1f3c3317dd4380f5ca9010845f344ad8f87b4dd
(find_entries): If filename ends in .f or .for, don't try anything but Fortran.

diff -r a1f3c3317dd4 -r 00beac79bcc7 lib-src/etags.c
--- a/lib-src/etags.c	Thu Jan 14 17:45:39 1993 +0000
+++ b/lib-src/etags.c	Thu Jan 14 20:09:22 1993 +0000
@@ -1034,11 +1034,17 @@
       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;