Mercurial > emacs

changeset 1796:00beac79bcc7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(find_entries): If filename ends in .f or .for, don't try anything but Fortran.
author Richard M. Stallman <rms@gnu.org>
date Thu, 14 Jan 1993 20:09:22 +0000
parents a1f3c3317dd4
children cc86c049e576
files lib-src/etags.c
diffstat 1 files changed, 10 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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;